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PREFACE 

v\ 

This  report  describes  an  experimental  service  being  developed  in 
conjunction  with  the  ARPANET  for  the  Information  Processing  Techniques 
Office  of  ARPA.  The  work  is  an  integral  part  of  an  overall  program  to 
explore  the  application  of  computer  resources  to  defense-related  re¬ 
quirements  . 

ARPANET  is  a  network  of  computers  located  on  the  premises  of 
approximately  20  ARPA  contractors.  There  are  plans  to  include  several 
military  installations.  ARPANET  addresses  the  problem  of  how  to  share 
heterogeneous  computer  resources,  separated  geographically,  with  widely 
varying  languages  and  hardware.  This  study  examines  a  computer  program 
to  conveniently  translate  one  computer’s  messages  to  another,  much  in 
the  same  way  that  a  translator  aids  communication  between  people  speak¬ 
ing  different  languages. 

This  report  delineates  a  part  of  the  computer  program,  the  com¬ 
piler.  This  communication  service  reformats  messages  passing  between 
dissimilar  computers  in  such  a  way  that  the  ARPANET  appears  to  adapt 
the  user's  computer  programs. 

The  report  discusses  both  the  compiler  and  its  implementation. 

It  is  intended  for  specialists  who  want  to  maintain  the  compiler  or  to 
construct  a  similar  service.  The  reader  is  assumed  to  be  familiar 
with  R-860-ARPA,  The  Data  Reconfiguration  Service— An  Experiment  in 
Adaptable  Process /Process  Communication.  ^A^-75  o/^> 
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SUMMARY 


This  report  describes  the  use,  implementation,  and  maintenance 
procedures  for  the  Data  Reconfiguration  Service  (DRS)  Compiler.  The 
nature,  scope,  and  goals  of  the  DRS  experiment  are  also  explained. 
ARPANET  resources  are  rapidly  expanding,  and  the  number  of  users  is 
increasing.  Of  growing  concern  is  the  problem  of  incompatibilities 
between  the  remote  user's  program  or  terminal  and  the  service  that  the 
user  wishes  to  access.  The  DRS  experiment  tests  and  evaluates  one 
method  of  resolving  different  communication  interfaces  by  placing  the 
DRS  between  user  and  server  to  reconfigure  the  data  they  pass  to  each 
other. 

Several  ARPANET  sites  will  provide  the  DRS  to  compare  and  contrast 
its  operation  with  the  current  kind  of  operation,  which  specifies  stan¬ 
dard  data  representations  to  which  both  user  and  server  must  conform. 

A  goal  of  the  experiment  is  to  ascertain  if  such  ARPANET  "adaptability" 
yields  a  valuable  mode  of  operation  for  a  large  spectium  of  users. 

The  report  provides  an  overview  of  the  language  in  which  data- 
reconfiguration  definitions  are  expressed.  Syntax  is  stated  in  a 
formal  notation. 

Another  overview  describes  the  DRS  interpreter  as  a  component  ot 
the  service  that  performs  the  actual  data  transformations  in  real  time. 
The  report  provides  a  functional  description  of  the  interpreter,  and 
briefly  describes  each  instruction's  operation. 

The  study  highlights  the  compiler's  functions  and  operations.  The 
compiler  processes  descriptions  of  data  reconfigurations  (for  use  by 
the  interpreter)  as  instructions  for  reformatting  the  data  passing 
between  user  and  server.  The  compile  process  entails  a  lexical  scan 
of  the  reconfiguration  definition,  a  syntactic  verification  of  the 
resulting  lexical  units,  and  the  generation  of  instructions  for  the 
interpreter.  The  compiler  does  not  communicate  directly  with  the  person 
who  creates  the  descriptions;  instead,  it  operates  through  a  file  sys¬ 
tem  to  retrieve  the  descriptions  and  emit  the  instruction  sequence. 

Because  this  report  is  a  guide  to  maintaining  the  compiler,  one 
section  describes  the  function  of  each  subroutine,  the  use  of  the 


compiler  generator,  and  the  use  and  format  of  data  structures;  it 
also  3hows  how  to  modify  semantic  subroutines. 

Emphasis  was  placed  on  expediting  compiler  implementation  instead 
of  producing  a  fast  compiler  or  highly  efficient  instructions  for  the 
interpreter.  Thus,  suggested  improvements  are  included.  The  improve¬ 
ments  would  reflect  lower  maintenance,  more  optimized  generated  instruc¬ 
tions,  and  smaller  memory  requirements  for  the  compiler.  The  report 
also  details  compiler  implementation,  and  points  out  pitfalls  and 
alternate  strategies. 
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I.  INTRODUCTION 


THE  NATURE  OF  THE  EXPERIMENT 

The  ARPANET  [1-5]  embodies  a  growing  number  of  service  centers 
th.it  provide  a  collection  of  unique  and  valuable  services  as  resources 
to  an  expanding  remote  user  group.  Users  are  frequently  located  either 
at  sites  with  minimal  computational  power  or  at  sites  remote  from  the 
service  they  need.  Collectively,  they  use  a  varied  set  of  peripheral 
devices  and  application  programs.  The  services,  on  the  other  hand,  are 
generally  predecessors  of  the  ARPANET;  they  accommodate  a  more  limited 
set  of  devices  and  program  interfaces  than  those  presented  by  ARPANET 
users.  ARPANET  personnel  are  investigating  the  problem  of  identifying 
and  applying  techniques  to  aid  user  and  service  communications. 

Three  approaches  to  solving  these  disparate  communications  require¬ 
ments  immediately  come  to  mind: 

1.  Servers  can  tailor  their  software  interfaces  for  coupling  to 
a  much  larger  set  of  users. 

2.  Each  user  can  provide  the  necessary  software  interfaces  to 
all  se  vices  he  wishes  to  access. 

3.  High-level  dat i-representation  protocols,  to  which  both  users 
and  servers  conform,  can  be  defined. 

The  first  approach  is  highly  unattractive  because  of  the  burden 
and  responsibilities  it  places  on  service  centers.  The  second  is  like¬ 
wise  undesirable  because  it  implies  upgrading  user  equipment  and  modi¬ 
fying  user  programs  to  meet  service  center  specifications.  The  inclin¬ 
ation  to  date  has  been  toward  the  chird  approach.  Thus  far,  standards 
have  been  specified  for  logical  message-path  management  and  teletype¬ 
like  character  transmissions.  At  higher  linguistic  levels  (e.g.,  data 
and  file  transmission,  remote  job  entry,  and  interactive  graphics), 
protocols  have  not  been  defined,  partly  bees  use  of  the  divergence  of 
user  needs  at  these  problem-oriented  levels. 

An  interim  (and  perhaps  even  long-term)  solution  to  this  communica¬ 
tions  dichotomy  Is  the  use  of  a  fourth  approach — the  Data  Reconfiguration 
Service  (DRS)  [6-7].  The  DRS  is  a  computer  program,  transparent  to  both 
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user  and  server,  tnat  couples  user  and  server  and  carries  out  trans¬ 
formations  on  data  passing  between  them  (see  Fig.  1). 


Fig.  1--Daia  "Transformer" 

This  approach  offers  several  advantages.  Because  the  reconfigura¬ 
tion  definitions  (called  forms)  are  easily  specified,  user/server 
interface  connections  can  be  readily  accomplished,  with  only  minor 
changes  made  to  their  respective  programs.  For  the  n  x  m  possible 
transformations  (n  users  times  m  services),  there  ne*.  i  only  be  a  single 
adaptable  transformer  in  the  ARPANET. 

THE  SCOPE  OF  THE  E)  i^IMENT 

Four  ARPANET  sites  (Rand,  UCSB,  UCLA,  and  MIT)  are  participating 
in  DRS  development.  Specifically,  Tend  and  UCLA  are  implementing  DRS 
compilers.  This  report  details  the  Rand  implementation  of  the  compiler. 
UCSB,  UCLA,  and  MIT  are  implementing  interpreters.  The  compilers  take 
character-string  definitions  of  data  transformations  and  produce  an 
intermediate  (compiled)  representation  of  the  definition.  The  inter¬ 
preters  apply  the  compiled  definitions  to  data  streams  passing  between 
user  and  server  in  real  time. 

The  Rand-implemented  compiler  and  the  UCSB  interpreter  will  operate 
on  UCSB:8  IBM  360/75  as  a  DRS  service.  The  UCLA  compiler  and  interpreter 
will  operate  on  the  UCLA  Sigma-7.  The  MIT  interpreter  will  offer  the 
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reconfiguration  service  on  a  PDP-10,  using  data  definitions  compiled 
at  UCLA  and  UCSB. 

The  DRS  experiment  is  limited  in  scope.  It  is  not  intended  as  an 
intermediary  for  all  ARPANET  information  exchange.  The  kinds  of  trans¬ 
formations  that  can  be  expressed  easily  and  concisely  in  the  DRS  lan¬ 
guage  include:  character-set  conversions,  insertion  and  deletion  of 
message  headers  and  trailors  (e.g.,  identifiers  and  counters),  trans¬ 
position  of  fields,  data-format  conversions  (e.g.,  binary  to  binary- 
coded-decimal),  expansion  and  compression  of  repeated  symbol  strings, 
and  stripping  or  appending  terminal  signals. 

Two  kinds  of  uses  are  planned  for  the  DRS.  One  is  to  offer  a 
limited  service  to  minimally  configured  nodes  to  gain  some  practical 
user  experience.  Another  is  to  duplicate  (in  parallel)  one  or  more 
existing  user-server  cies  for  purposes  of  comparative  evaluation. 
Statistics  of  interest  include  declaration  times  of  DRS  data-reconf ig- 
uration  definitions  compared  to  coding  time  for  the  existing  conven¬ 
tional  implementations,  and  real-time  data-transmission  comparisons  of 
the  two  operating  modes. 

THE  GOALS  OF  THE  EXPERIMENT 

One  experimental  goal  is  to  determine  the  viability  of  a  mode  of 
operation  where  a  broad  class  of  users  can  readily  correspond  with 
standard  services,  with  minimal  perturbations  to  the  user's  programs. 
The  experiment  is  clearly  prohibitive  with  respect  to  bandwidth  and 
data  rate  for  either  large-volume  data  handling  or  highly  interactive 
dialogues . 

If  a  technically  and  economically  aesthetic  DRS  results  from  this 
experiment,  it  could  be  provided  as  a  standard  service  by:  (1)  dis¬ 
tributing  its  capability  to  eacn  major  ARPANET  service  center  so  that 
both  the  DRS  and  the  desired  service  reside  at  the  same  site,  or  (2) 
implementing  a  DRS  interpreter  in  microcode  on  a  small  computer,  as 
a  unique  service. 

As  a  computer  program,  the  DRS  is  expected  to  perform  well  on  one¬ 
time-only  data  reformatting,  where  the  original  data  are  in  one  or  more 
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formats  and  where  writing  programs  to  reformat  the  data  would  be  time- 
consuming.  Several  examples  of  needed  data  transformations  exist  today, 
where  the  target  data  are  to  reside  on  a  trillion-bit  store  to  be 
shared  by  many  installations.  Other  appropriate  applications  center 
around  conversational-mode  programs  with  low  response-time  requirements 
(10  to  30  characters/sec) . 
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II.  THE  DRS  LANGUAGE^ 

HIGHLIGHTS  OF  LANGUAGE  SEMANTICS 

A  fom  is  an  operational  definition  of  data  reformatting  performed 
on  data  passing  over  a  unidirectional,*  logical  ARPANET  message  path. 
Forms  are  specified  to  the  DRS,  then  compiled  and  stored  by  the  DRS. 

The  interpreter  applies  a  compiled  form  to  an  input  data  stream  from 
the  user  and  emits  a  reconfigured  output  stream  to  the  server,  and 
vice  versa. 

A  form  is  an  ordered  collection  of  rules  (language  statements)  for 
explicating  reconfiguration  operations  on  data  streams.  Rules  specify 
replacement,  comparison,  or  assignment  operations  on  local  variables 
in  the  context  of  the  form.  Rules  are  subdivided  into  an  assemblage 
of  terms.  Data-stream-related  terms  describe  the  attributes  (replica¬ 
tion,  length,  value,  and  data  type)  of  a  field  in  the  input  or  output 
stream.  Rules  consist  of  two  parts:  terms  that  describe  or  set  con¬ 
ditions  on  the  input  data,  and  terms  that  format  data  for  emission  in 
the  output  stream.  Each  term  may  optionally  and  conditionally  specify 
a  transfer  of  control  to  the  beginning  of  another  rule.  Rules  are 
processed  sequentially  in  the  absence  of  explicit  transfer  of  control. 


Appendix  A  includes  the  syntax  of  the  DRS  grammar.  See  Refs.  6 
and  7  for  a  detailed  description  of  DRS  semantics. 

In  general,  ARPANET  connections  are  duplex,  and  a  separate  form 
is  required  to  specify  transformations  on  data  passing  in  each  direction. 
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III.  THE  DRS  INTERPRETER 


INTERPRETER  OVERVIEW 

The  interpreter  applies  a  pre-compiled  form  to  a  real-time  data 
stream  to  effect  data  transformations  'see  Fig.  2).  The  compiler 
produces  the  instructions,  label  table,  literals,  and  identifiers. 

The  interpreter  is  a  stack  machine  driven  by  a  Polish  postfix  instruc¬ 
tion  sequence.  It  consists  of  an  instruction  decoder;  instruction 
execution  routines  (called  operators)  for  data  fetching,  storing,  and 
conversions;  an  assemblage  of  state  registers  for  control;  and  a  run¬ 
time  stack  to  house  instriction  operands  (see  Fig.  3). 

Run-time-s tack  operards  are  used  for  arithmetic  expression  evalua¬ 
tion,  concatenation,  and  comparison;  they  are  also  used  as  arguments 
to  input  and  output  instriction  routines. 

The  Current  Input  Pointer  addresses  the  next  bit  to  be  processed 
in  the  input  stream.  The  Rule  Input  Pointer  addresses  the  bit  position 
of  the  input  stream  corresponding  to  the  beginning  of  the  current  rule. 
Two  input  pointers  are  required:  the  Current  Input  Pointer  moves  along 
as  each  term  is  processed,  but  the  Rule  Input  Pointer  is  not  advanced 
unless  the  ule  correctly  describes  the  input.  The  Output  Pointer 
addresses  the  next  available  bit  position  for  inserting  data  in  the 
output  stream.  The  Instru:tion  Counter  points  to  the  current  instruc¬ 
tion  of  the  pre-compiled  instruction  sequence.  The  Binary  Switch  is 
a  true-false  indicator  set  by  input  call  and  compare  instructions,  and 
checked  by  test  and  branch  instructions.  See  Appendix  B  for  instruc¬ 
tion  descriptions  and  the  Instruction  repertoire. 


Private  communication  with  James  White,  Computer  Research  Labor¬ 
atory,  University  of  California,  Santa  Barbara. 


Input  Data  Stream  Output  Data  Stream 


Fig.  2--Interpreter  Interfaces 


Interpreter 
State  Registers 

Instruction  counter 
Rule  input  pointer 
Current  input  pointer 
Output  pointer 
Binary  switch 


Fig.  3--Interpreter  Components 
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IV.  THE  COMPILER 


GLOSSARY 

A  terminal  is  any  fundamental  symbol  string  in  the  language,  i.e., 
any  string  not  defined  in  terms  of  other  strings. 

A  defined-type  is  any  symbol  string  in  the  language  that  is  de¬ 
fined  in  terms  of  other  symbol  strings. 

A  syntactic  unit  is  either  a  terminal  or  a  defined-type. 

The  Vocabulary  Table  is  a  list  of  terminals. 

A  production  is  a  statement  in  the  syntactic  specification  of  the 
language.  Each  production  consists  of  a  defined-type  followed  by  a 
sequence  of  syntactic  units. 

COMPILER  FUNCTIONAL  OVERVIEW 

The  DRS  compiler  (a  PL/1  program)  accepts  a  form  file  as  input  and 
generates  a  source-diagnostic  file  for  the  user  and  two  object  files 
for  execution  by  the  interpreter.  The  compiler  is  logically  made  up 
of  several  data  tables  and  three  processes  (the  lexical  analyzer,  the 
syntax  analyzer,  and  the  semantic  subroutines).  The  lexical-analyzer 
process  scans  and  extracts  meaningful  characters,  or  groups  of  charac¬ 
ters,^  from  the  input  stream  (form  definition).  The  character(s)  is 
passed  to  the  syntax-analyzer  process  to  check  the  syntax  of  the  inp^t 
by  comparing  it  to  the  syntactic  units  specified  in  a  data  table.  If 
it  agrees  with  any  of  the  def ined-types  (see  Appendix  A) ,  then  the 
third  process,  a  collection  of  semantic  subroutines,  is  invoked  to  gen¬ 
erate  object  code  (see  Fig.  4). 

The  data  tables  are  pre-generated  by  a  compiler  generator,  the 
LALR(k)  Parser  Generator,*  developed  by  the  Computer  Research  Group  at 
the  University  of  Toronto  [8-9],  A  Backus  Normal  Form  (BNF)  [10]  repre¬ 
sentation  of  the  DRS  syntax  is  input  to  the  Parser  Generator. 


The  characters  correspond  to  primitive  elements  of  the  DRS  syntax, 
e.g.,  delimiters,  integers,  and  identifiers. 

The  Parser  Generator  was  written  to  produce  XPL-coded  compilers. 

In  this  instance,  the  XPL  was  hand-translated  to  PL/1. 
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Source  file  of  form 


(DRS  SRCE  formname) 


Instruction  sequence  file 
(DRS  OBJI  formname) 


Fig.  4--Functional  View  of  the  Compiler 


OVERVIEW  OF  COMPILER  OPERATIONS 

The  compiler  (see  Appendix  C)  is  invoked  either  as  a  job  step  or 
by  being  attached  as  an  asychronous  sub  task.  Its  source  form  input 
and  its  diagnostic  and  object  outputs  use  the  facilities  of  the  Simple 
Minded  File  System  (SMFS)  [11],  a  remote  ARPANET  resource  at  UCSB. 

The  name  of  the  form  to  be  compiled  is  passed  on  to  the  compiler 
either  in  the  "PARM"  field  of  the  execute  card^  for  the  compiler  job 

^See  IBM  System  Reference  Library,  Form  No.  C28-6539-9. 
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step  or  as  a  supervisor  call  parameter  if  the  compiler  Is  attached  as 
a  subtask.  The  compiler  concatenates  the  parameter  ( forrrmame )  to  the 
string  '  DRS_SRCE_'  to  make  up  the  complete  file  name  of  the  source 
form,  DRS_SRCE__formname.  The  formname  is  appended  to  similar  strings 
to  form  the  output  file  names  shown  in  Fig.  4.  The  compiler  creates 
and  writes  the  three  output  files. 

The  diagnostic  file  is  always  written;  it  contains  a  copy  of  each 
source  rule .  If  the  rule  parses  correctly,  the  compiled  code  is  listed 
after  the  rule  in  a  format  typical  of  an  assembly  listing.  If  the  rule 
does  not  parse,  a  diagnostic,  written  after  the  source  rule,  replaces 
the  compiled  code.  (See  Appendix  D  for  an  example  of  the  diagnostic 
file.)  If  the  compilation  is  error-free,  the  instruction  sequence  and 
data-table  files  are  also  written;  if  syntax  errors  are  detected,  these 
object  files  are  purged. 


LEXICAL  ANALYSIS 

The  DRS  syntax  contains  a  set  of  terminal  symbols.  The  "arbitrary 
number  of"  symbol,  //,  denoting  the  repl  cation  factor,  is  a  terminal. 
Delimiters,  arithmetic  and  concatenate  operators  are  also  terminals. 
Integers,  alphanumeric  strings,  and  literals  are  also  terminal  or 
primitive  in  the  sense  that  they  are  fundamentally  irreducible,  as 
opposed  to  an  arithmetic  expression  that  might  be  reducible  to  a  series 
of  binary  operations. 

The  Parser  Generator  deduces  terminals  from  the  BNF  language  de¬ 
scription,  and  generates  them  to  make  up  the  Vocabulary  Table. 

The  lexical  analyzer  detects  terminals  as  it  processes  the  input 
stream  (form  definition).  By  ignoring  non-terminals,  the  lexical 
analyzer  filters  out  ARPANET  control  characters.  Upon  detection  of  a 
terminal,  an  index^  (rather  than  the  terminal  itself)  corresponding  to 
the  entry  in  the  Vocabulary  Table  is  returned  to  the  syntax  analyzer. 

A  special  terminal  (goal  symbol)*  that  cannot  occur  in  the  input  stream 


The  terminal  type  is  available  through  the  index,  and  the  input 
terminal  string  is  placed  in  a  variable. 

See  the  first  production,  GLUMP,  in  the  syntax  in  Appendix  A. 
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lndlcates  the  end  of  a  form.  The  lexical  analyzer  translates  an  end- 
of-file  from  the  form-definition  source  into  the  goal  symbol,  and 
passes  the  appropriate  Vocabulary  Table  index  to  the  syntax  analyzer. 

(The  goal  symbol  appears  as  in  the  syntax  specification.)  Liter¬ 

als  are  stripped  of  their  delimiting  double  quote  marks  before  being 
passed  to  the  syntax  analyzer. 

SYNTAX  ANALYSIS 

The  syntax  analyzer  is  a  "state  machine,"  driven  by  initialized 
state  tables  produced  by  the  Parser  Generator.  The  tables  guide  the 
syntax  analysis,  which  in  turn  calls  upon  the  lexical  analyzer  to 
supply  terminals.  In  fact,  the  Parser  Generator  produces  a  variety  of 
output  (see  Appendix  A).  For  example,  it  indicates  ambiguities  in  the 
syntax  and  whether  or  not  they  can  be  resolved  by  looking  ahead  one 
terminal  in  the  input  stream.  The  most  important  output  (for  the 
present  discussion)  is  a  symbolic  deck  of  XPL  [12]  table  declarations 
and  initialization  constants.  The  tables  are  used  in  syntax  analysis, 
except  for  the  Vocabulary  Table,  which  is  placed  in  the  lexical  analyzer 
because  it  contains  the  terminals  of  the  DRS  language. 

Analysis  involves  moving  from  one  state  to  another,  where  the  next 
state  is  a  function  of  the  current  state  and,  for  some  states,  a  func¬ 
tion  of  the  lexical  input.  Each  state  produces  a  specific  set  of  actions, 
e.g.,  requesting  input  or  generating  (compiling)  code.  The  kinds  of 
states  include  read ,  look-ahead ,  push-doun ,  and  apply . 

A  read  state  gets  the  next  terminal  from  the  lexical  analyzer  (the 
current  state  is  pushed  down  on  a  state  stack).  A  set  of  acceptable 
terminals  is  associated  with  each  read  state.  Each  terminal  in  the  set 
leads  to  a  next  state.  If  the  terminal  read  matches  one  of  those 
acceptable  in  the  present  state,  a  transition  is  made  to  the  correspond¬ 
ing  next  state.  Failure  to  match  one  of  the  state's  set  is  indicated 
by  a  syntax  error,  whereupon  the  current  rule  is  ignored  by  skipping 
past  the  semicolon  delimiter;  the  parse  process  then  continues  with  the 
next  rule. 

When  the  syntax  analyzer  is  in  a  look-ahead  state ,  it  asks  the 
lexical  analyzer  for  a  copy  of  the  next  terminal  (without  advancing  the 
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lexical  analyzer’s  pointer  in  the  form  input).  That  is,  look-ahead 
leaves  the  terminal  available  f^r  subsequent  look-ahead  inspection  or 
read.  As  in  a  read  state,  each  look-ahead  state  has  an  associated  set 
of  acceptable  terminals  with  corresponding  next  states.  Likewise,  if 
a  terminal  is  matched  with  a  member  of  the  set,  a  transition  is  made 
to  the  corresponding  state;  otherwise,  a  syntax  error  occurs  and  pro¬ 
cessing  resumes  with  the  next  rule. 

A  push-doim  state  puts  a  syntactic  unit  on  the  stack.  The  next 
state  is  a  function  of  only  the  current  state.  Push-down  is  used  for 
productions  that  have  empty  righthand  sides. 

An  apply  state  recognizes  a  defined- type  and  thus  invokes  a  seman¬ 
tic  subroutine,  which  in  turn  generates  code.  The  next  state  is  deter¬ 
mined  from  the  current  state  and  the  state  stack.  If  a  semantic  error 
Is  detected,  the  syntax  analyzer  skips  to  the  next  rule  to  continue 
processing. 

SEMANTIC  SUBROUTINES 

•j* 

The  semantic  subujtines  generate  the  diagnostic  file,  the  instruc¬ 
tion  sequence  file,  and  the  associated  Label  Table  and  Literal/Identifier 
Table  file  (3ee  Fig.  4) .  The  latter  two  files  are  accumulated  internally 
until  a  complete  form  is  recognized.  A  "record"  of  the  diagnostic  file, 
written  whenever  a  rule  is  recognized,  contains  the  source  rule  state¬ 
ment  followed  by  either  a  diagnostic  message  or  a  list  of  the  compiled 
instructions . 

Table  entries*  are  made  whenever  literals  or  labels  are  encountered 
as  identifiers.  Labels  are  checked  for  uniqueness.  Identifiers  may 
have  multiple  references,  with  different  values  and  data  types  for  each 
reference.  Literals  are  checked  for  uniqueness  so  that  identical  lit¬ 
erals  appear  only  once  in  the  Literal/Identifier  Table.  (When  multiple 
definition  of  a  label  occurs,  the  error  is  reported  to  the  syntax 
analyzer.) 

^In  the  program,  the  semantic  subroutines  are  collectively  named 
SMNTC. 

*The  entries  are  made  by  the  subroutines  FINDID,  FINDLT,  and  FINDLB. 


Tiiiirr  i  \  ii  1 1  it  ini  n  i  i  ullfiiiili 


-13- 


The  semantic  subroutiriv  .  generate  code  directly,  without  creating 
an  intermediate  parse  tree.  Because  the  grammar  requires  a  look-ahead 
of  one  terminal,  there  is  no  need  to  try  alternate  productions  until 
the  successful  one  is  found.  Consequently,  there  is  no  need  to  back 
up  over  code  generated  from  each  unsuccessful  "try."  The  semantic 
subroutines  are  given  a  parameter  to  indicate  the  recognized  production. 
Thus,  semantic  actions  are  invoked  for  each  recognized  production — 
setting  variables,  making  an  entry  in  the  Lable  Table  or  Literal/ 
Identifier  Table,  or  generating  an  instruction  sequence.  If  any  code 
is  generated  when  a  semantic  subroutine  is  executed,  a  common  exit  is 
taken  to  update  a  location  counter  for  the  instruction  sequence. 

Specific  semantic  actions  that  occur  upon  recognition  of  the  pro¬ 
ductions  are  listed  below  (the  descriptions  do  not  include  pre-  and 
post-processing  common  to  each  production): 

GLUMP  : :«  FORM 

An  unconditional  return  with  a  code  of  zero  is  generated  both 
in  the  instruction  sequence  and  on  the  diagnostic  file.  The  number 
of  bytes  of  instructions  is  recorded  in  a  length  field  preceding 
the  instruction  sequence  (the  interpreter  uses  the  length  to  deter¬ 
mine  storage  requirements) .  The  ins trucrion-sequence  file  is 
written  along  with  the  length  field.  Similar  length  fields  precede 
the  Label  Table  and  the  Literal/Identi f ier  Table,  which  are  written 
as  shown  in  Fig.  4.  The  Label  Table  and  the  Literal/Identif ier 
Table  are  written  as  unformatted  SMFS  files. 

FORM  RULE  |  FORM  RULE 

No  action  is  taken. 

RULE  LABEL  INPUTSTREAM  OUTPUTSTREAM; 

Unless  the  separator  " :"  appears  first,  an  input/output  term- 
flag  is  set  to  identify  the  next  term  encountered  as  an  input  term. 
The  number-of-rules  counter  is  incremented  and  the  number-of- terms 
(within  a  rule)  counter  is  cleared.  The  end-of-rule  pseudo¬ 
instruction  is  generated.  A  second-pass  compile  is  made  (at  the 
end  of  each  rule)  to  complete  the  address  field  of  AD  instructions. 
On  first-pass,  these  instructions  are  flagged  with  the  pattern, 
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2130..,..  The  instruction  sequence  generated  for  the  current  rule 
it>  t 

is  recorded  in  the  diagnostic  file.  The  SICP  instruction  is 
generated  as  part  of  the  sequence  for  the  next  rule. 

LABEL  INTEGER 

The  label  is  entered  in  the  Label  Table;  if  the  label  is 
already  defined,  an  error  flag  is  set.  An  SICP  is  generated  as 
the  first  instruction  of  the  rule. 

LABEL  <EMPTY> 

An  SICP  is  generated  as  the  first  instruction  of  a  rule. 

INPUTSTREAM  : :«  <EMPTY>  |  TERMS 

Upon  recognition  of  all  input  terms,  an  input/output  term- 
flag  is  set  to  identify  the  terms  that  follow  as  output  terms. 

TERMS  TERM  |  TERMS,  TERM 

The  Path  Table  (see  p.  26)  is  cleared.  Each  element  of  the 
table  corresponds  to  a  defined-type  and  contains  the  number  of  the 
recognized  production  of  that  type.  Semantic  subroutines  use  the 
table  to  determine  the  history  of  the  parse.  Array  HOLD  is  ini¬ 
tialized  to  zeros.  Each  element  of  the  array  preserves  indices 
in  the  Label  Table  or  the  Literal/Identif ier  Table.  The  fourth 
element  of  the  array  indicates  whether  the  terms  are  input  or 
output.  The  term  counter  is  incremented  and  an  end  of  term  instruc¬ 
tion  is  generated. 

TERM  IDENTIFIER  DESCRIPTOR 

The  input/output  term-flag  is  checked.  If  it  is  on,  the 
identifier  descriptor  was  written  on  the  wrong  side  of  the  input/ 
output  term  delimiter  1 : 1 ;  thus,  no  code  is  generated.  If  the 
term  occurs  on  the  left  (input)  side  of  a  rule,  the  instruction 
sequence  LD  x  followed  by  STO  is  generated.  When  executed,  this 
sequence  stores  the  value  of  the  identifier  retrieved  by  the  input 
call . 

^*The  subroutine  SPOCODE  writes  the  file  output. 
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TERM  IDENTIFIER 

The  following  instruction  sequence  is  generated: 

NULL 

LD  x 

LIT 

LD  x 

LIC 

LD  x 

LIL 

where  x  is  an  index  in  the  Literal/ldentif ier  Table.  This  sequence 
stacks  the  input/output  parameters  for  the  interpreter.  The  input/ 
output  term-flag  is  examined  to  determine  which  of  the  instructions 
(OUT,  IND)  to  generate. 

TERM  DESCRIPTOR  |  COMPARATOR 
No  action  is  taken. 

IDENTIFIEE  : IDENTIFIER 

A  semantic  subroutine  (the  one  corresponding  to  the  defined- 
type  IDENTIFIER)  previously  stored  the  identifier  in  the  Literal/ 
Identifier  Table.  This  subroutine  saves  an  index  to  the  identifier 
for  use  by  higher-level  semantic  subroutines. 

TERM  ::=  IDENTIFIER 

The  identifier  is  a  terminal  symbol.  If  not  already  recorded, 
it  is  stored  in  the  Literal/ldentif ier  Table.  An  index  in  the 
table  is  saved  for  later  use. 

DESCRIPTOR  : REP  |  DATYPE  |  VALUE  |  LENGTH  CONTROL 
No  action  is  taken. 

COMPARATOR  : COMPAREXPR  CONTROL  |  ASSGNEXPR  CONTROL 
No  action  is  taken. 

COMPAREXPR  CONCAT  CONNECTIVE  CONCAT 
No  action  is  taken. 

ASSGNEXPR  ::«*  IDENTIFIER  .<=.  CONCATEXPR 
The  instructions  LD  x  followed  by  STO 
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are  generated  to  store  the  value  of  the  righthand  side  of  the 
assignment  statement  in  the  identifier  on  the  lefthand  side.  The 
x  is  an  index  in  the  Literal/ldentifier  Table  for  the  identifier. 

REP  if 

The  ARB  operand  is  '  .nerated. 

RE t  ARITHEXPR 

If  the  alternate  production  recognized  for  the  defined-typ 
PRIMARY  is  INTEGERj  then  the  integer  is  saved  for  higher-level 
semantic  subrcutines;  otherwise,  no  action  is  taken. 

RE?  <EMPTY> 

The  NULL  instruction  is  generated. 

DATYPE  B  |  0  |  X  |  E  |  A  |  ED  |  AD  |  SB  |  T( IDENTIFIER', 

The  allowable  data  types  are  as  follows : 


Type  Meaning  Code 


Undefined  0 

B  Binary  1 

0  Octal  2 

X  Hexadecimal  3 

E  EBCDIC  .  4 

A  Network  ASCII7  5 

ED  EBCDIC  Decimal 

Number  6 

AD  Network  ASCII 

Decimal  Number  7 

SB  Signed  Binary  8 


For  all  but  T ( IDENTIFIER) ,  the  instruction  IC  x  is  generated, 
where  x  is  one  of  the  values  0  through  8.  For  T (IDENTIFIER) ,  the 
instruction  sequence  LD  x  followed  by  LIT  is  generated,  where  x 
is  an  index  in  the  Literal/ldentifier  Table. 

VALUE  CONCAT 

The  index  to  the  Literal/ldentifier  Table  is  saved. 

VALUE  < EMPTY > 

The  NULL  instruction  is  generated. 


^Network  ASCII  is  a  standard  7-bit  ASCII  code  right-justified  in 
an  8-bit  field,  with  a  high- order  bit  equal  to  zero. 
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LENGTH  ::=■  ARITH 

The  integer  is  saved  if  the  arithmetic  expression  is  an 
integer.  The  OUT  instruction  is  generated  if  the  term  is  an 
output  term;  otherwise,  the  following  instruction  sequence  is 
generated : 

INS 

AD  end  of  rule  instruction  number 

BF 

LD  if  an  IDENTIFIER  was  specified 

STO 

LENGTH  <EMPTY> 

The  NULL  instruction  is  generated. 

CONNECTIVE  : :=  .LE.  |  .LT.  I  .GT.  |  .GE.  |  .EQ.  |  .NE. 

For  the  syntactic  unit  below  (left  column) ,  the  code  (right 
column)  is  generated: 

.LE.  CLE 

.LT.  CLT 

.GT.  CGT 

.GE.  CGE 

.EQ.  CEQ 

.NE.  CNE 

The  sequence  AD  followed  by  BF  is  generated. 

CONCAT  VAL 

No  action  is  taken. 

CONCAT  : :=  CONCAT  \ |  VAL 

The  CON  instruction  is  generated. 

VAL  ::«=  LITERAL 

The  instruction  LD  x  is  generated,  where  x  is  an  index  in 
the  Literal/Identifier  Table. 

VAL  ARITH 

No  action  is  taken. 

ARITH  PRIMARY 

No  action  is  taken. 


TM-Tirii,  , — 


.  .  -  mm - - 
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ARITH  ARITH  OPERATOR  PRIMARY 

The  instruction  corresponding  to  the  arithmetic  oper'cor  is 
generated : 

+  ADD 
-  SUB 
*  MUL 
/  DIV 

PRIMARY  IDENTIFIER  |  L(IDENTIFIER)  |  V(IDENTIFIER) 

The  instruction  LD  x  is  generated,  where  x  is  an  index  in 
the  Literal/ldentif ier  Table.  An  LIL  is  generated  for  L(IDENTIFIER) 
an  LIV  is  generated  for  V(IDENTIFIER) . 

INTEGER  : :=  terminal 

The  value  of  the  integer  is  saved  and  the  instruction  IC  x 
is  generated,  where  x  is  the  value  of  the  integer. 

OPERATOR  ::=  +  |  -  |  *  |  / 

No  action  is  taken. 

LITERAL  LITYPE  LITSTRING 

The  literal  is  stored  in  the  Literal/Identifier  Table. 

LITYPE  B  |  0  |  X  |  E  |  A  |  ED  |  AD  |  SB 
No  action  is  taken. 

CONTROL  |  OPTIONS 

No  action  is  taken. 

OPTIONS  SFUR  (ARITH)  |  SFUR  (ARITH),  SFUR  (ARITH) 

If  the  test  is  SR,  FR,  or  UR,  the  RET  instruction  is  generated; 
otherwise,  the  sequence  LUL  followed  by  BU  is  generated. 

SFUR  S  |  SR 

The  instructions  AD  x  followed  by  BF  are  generated,  where  x 
is  the  address  of  the  first  instruction  in  the  next  rule. 

SFUR  F  |  SF 

The  sequence  AD  x  followed  by  BT  is  generated. 

SFUR  U  |  UR 


No  action  is  taken. 
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INPUT  AND  OUTPUT  TO  THE  SMFS 

Most  input  and  output  requests  to  the  SMFS  [11]  are  centralized 
in  the  input/output  subroutine  SMF3T0.  Commands  to  SMFS  are  for¬ 
matted  as  unaligned  bit  strings.  UCSB's  PL/l-Network  interface  [13] 
expects  data  as  aligned  array  elements:  however,  the  DRS  compiler  con¬ 
structs  the  file  commands  in  PL/1  structures.  Data  representation  and 
access  incompatibilities  are  resolved  in  SMFSIO  by  the  POINT  routine, 
through  dummy  dope  vectors . 

The  input /output  subroutine  validates  file  operations.  The  SMFS 
and  the  ARPANET  report  the  completion  of  a  file  transaction  by  return¬ 
ing  a  completion  code^  and  by  echoing  the  file  command.  The  code  is 
passed*  to  the  caller  after  receiving  and  checking  the  echo. 

COMPILER  CHARACTERISTICS 

The  compiler  is  a  PL/]  program.  Figure  3  shows  the  memory  require¬ 
ments  for  each  module. 
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Fig.  5--Compiler  Memory  Requirements 


STATIC  COMPILER  TABLES 


SMFSIO 


SPUCODE 


PRSER 


LXANLZR 


SMNTC 


PL1 

Library 

Subroutines 


Compiler  Tables 


Compiler  Routines 


SMFS  File  Routines 


^The  completion  code  is  returned  in  parameter  DS  in  SMFSIO. 
*The  code  is  passed  in  the  variable  RSPONSE. 
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The  program  consists  of  compiler  routines,  tables,  PL/1  library  rou¬ 
tines,  and  SMFS  file-interface  routines.  The  file-handling  routines, 
written  in  assembler  language,  add  little  to  the  total  size.  The  static 
tables  account  for  approximately  15  percent  of  the  program  size;  the 
remainder  is  compiler  code  and  library  routines.  Within  a  65K  partition, 
the  compiler  uses  about  6K  for  dynamic  storage. 

Becau  .  >f  the  simple  parse  process  and  few  explicit  subroutine 
calls,  the  compiler  is  fast.  At  present,  there  are  no  statistics  on 
the  compile  rate. 

MAINTENANCE 


Subroutines  and  the  Source  Language 

The  compiler  consists  of  the  following  routines: 


PRSER 

The  syntax  analyzer. 

LXANLZR 

The  lexical  analyzer. 

SMNTC 

The  semantic  routines. 

FINDLT 

Routine 

to  seek  and  insert 

literals . 

FINDLB 

Routine 

to  seek  and  insert 

labels . 

FINDID 

Routine 

to  seek  and  insert 

identifiers . 

SMFSIO 

Routine 

to  input/output  to 

the  SMFS. 

POINT 

Routine  to  overlay  arrays  onto 
structures  for  input/output. 

The  indentations  indicate  nested  subroutines.  The  first  three 
subroutines  are  the  major  components  of  the  compiler  (see  pp.  10-12). 

The  three  FIND  subroutines  are  called  exclusively  by  the  semantic  sub¬ 
routines.  SMFSIO  uses  the  SMFS.  The  PRSER,  LXANLZR,  and  SMNTC  use 
SMFSIO ,  although  PRSER  also  directs  the  file  system  to  open  and  close 
files.  Subroutine  POINT  converts  data  representations  between  the 
PL/l-Network  interface  [13]  and  the  compiler. 

PL/1  F-level  compiler,  version  5,  was  used.  The  PL/1  character 
string  built-in  functions  are  necessary  for  the  lexical  analyzer.  Note, 
for  example,  that  the  VERIFY  function  is  not  present  in  all  PL/1  versions. 


Some  installations  have  a  default  source  margin  other  than  the  one 
assumed  for  the  compiler  source  code.  Columns  1-72  must  be  used.  The 


assumed  PL/1  options  are 

EBCDIC 

LOAD 

CHAR60 

NODECK 

NOMACRO 

FLAGW 

N0S0URCE2 

STMT 

NOMACDCK 

SIZE  =  0133854 

COMP 

LINECNT  =  057 

SOURCE 

OPT  -  01 

ATR 

SORMGIN  -  (001,  072) 

XREF 

NOEXTDIC 

NCEXTREF 

NEST 

NOLIST 

OPLIST 

Parser  Generator 

The  User' 8  Guide  [8]  describes  options  provided  by  the  Generator. 
Appendix  A  is  a  listing  from  the  run  that  generated  the  DRS  compiler 
tables.  Briefly,  the  following  are  the  rules  for  constructing  the  BNF 
input . 

Such  specifications  as  IDENTIFIEE  : :=  IDENTIFIER  are  written 
simply  as  IDENTIFIEE  IDENTIFIER.  Successive  productions  are  given  on 
subsequent  cards  if  the  defined-type  has  alternatives.  For  example 

OPERATOR  +  |  -  |  *  |  / 

is  input  as 

OPERATOR  + 

* 

/ 

The  defined-types  are  terminated  by  a  /*  image.  Names  of  the  defined- 
types  can  be  any  continuous  sequence  of  alphabetic  characters,  or  the 
name  can  be  delimited  by  the  symbols  '<*  and  ’>’,  which  allow  imbedded 
blanks.  Fcr  example,  one  can  write  either  SFURIDENT  or  <SFUR  IDENT> 
as  the  name  of  a  defined-type.  The  name  <EMPTY>  specifically  defines 
the  null  type.  Finally,  any  symbol  that  does  not  appear  on  the  left 
of  a  production  is  considered  a  terminal.  The  symbols  +,  -,  *,  / 
exemplify  this  in  the  DRS  grammar  because  they  appear  only  as  alternate 
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productions  of  the  defined-type  OPERATOR.  Note  that  the  message  below 
must  precede  the  list  of  declarations;  it  indicates  that  the  tables  are 
acceptable  (after  editing  from  XPL  to  PL/1)  as  declarations  to  the  DRS 
compiler  (see  Appendix  A) . 

****N0TE****  GRAMMAR  IS  LALR(l) 

The  table  declarations  in  Appendix  A  are  identical  to  the  punched 
cards  produced  by  the  Generator.  The  comment  cards  may  be  discarded. 
The  declarations  are  edited  to  PL/1  in  the  following  order. 

o  Replace  the  phrase  LITERALLY  ’integer'  by  INITIAL  (integer). 

o  Remove  the  STATE-NAME  array  variable.  (It  is  not  used  by 
the  compiler.) 

o  In  the  remaining  array-variable  declarations,  replace  any 
references  to  the  variable  declared  'LITERALLY'  by  the 
ec uivalent  integer  value. 

o  In  the  remaining  array-variable  declarations,  replace  the 
attributes  BIT  (8)  by  BIN  (8). 

o  To  save  space,  entries  other  than  those  containing  terminal 
symbols  can  be  discarded  from  the  array-variable  VOCAB. 

o  The  array  index  in  XPL  starts  at  zero,  and  in  PL/l  at  one; 
thus  the  initial  XPL  value  should  be  deleted. 

o  Use  the  contents  of  the  vocabulary  array  to  initialize  the 
character-string  variable,  VOCAB,  in  the  lexical  analyzer. 

The  vocabulary-array  declaration  may  then  be  discarded. 

o  Place  the  remaining  array  declarations  in  routine  PRSER. 


The  Data  Tables 

Three  data  structures  contain  the  compiler's  output  for  the  inter¬ 
preter.  They  are  (1)  the  Instruction-Sequence  Table,  (2)  the  Label 
Table  (to  resolve  label  references),  and  (3)  the  Literal/Identif ier 
Table  (to  resolve  references  to  literals  or  identifiers).  The  Defined- 
Type  Table  and  Path  Table  control  the  semantic  actions  of  the  sub¬ 
routines.  To  conserve  space,  all  arrays  are  declared  static. 

Instruction-Sequence  Table 

The  Instruction-Sequence  Table  (see  Fig.  6)  contains  the  instruc¬ 
tion  sequence  (see  Appendix  E)  executed  by  the  interpreter.  It  is 
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headed  by  a  byte-count  of  the  instruction-sequence  length.  Every 
instruction  is  16  bits  in  length. 

16  bits 


Length  2  *  n  in  bytes 

Compiled  16-bit 
instructions 


Fig.  6--Compiled  Instruction  Sequence  File 
( DRSJDBJ I _f ormname ) 


Label  Table 

The  interpreter  uses  the  Label  Table  (see  Fig.  7)  to  resolve  label 
references  made  by  instructions.  The  table  is  headed  by  a  byte  count 
of  the  table’s  length.  Each  entry  contains  a  label  name  (an  integer 
n,  0  ^  n  ^  9999)  and  a  byte  offset  of  the  instruction  in  the  instruc¬ 
tion  sequence. 


16  bits 


32  bits 

Fig.  7--Compiled  Label  Table:  Part  of  File 
DRS  OBJT  formname 
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Literal/Identifier  Table 

Each  literal  and  identifier  encountered  in  the  source  is  entered 
in  the  Literal/ldentif ier  Table  (see  Fig.  8).  Literals  are  fully 
described  by  their  entries,  because  their  attributes  are  known  at 
compile  time. 


2 


2 


Identifiers 


Literals 


Legend: 

Type  0  =  undefined 

1  B  (binary) 

2  Tz<t>  ( octal ) 

3  -  X  ( hexadecimal ) 

4  -  E  (EBCDIC) 

5  ~  A  v ASCII) 

6  ED  (EBCDIC  encoded  decimal) 

7  AD  (ASCII  encoded  decimal) 

8  -  SB  (signed  binary,  two's  complement) 

Fig.  8--Compiled  Literals  and  Identifiers:  Part  of  File 

DRS  OBJT  formname 
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The  type  field  (Fig.  9)  contains  a  value  from  zero  to  eight  th.^t 
identifies  the  literal  as  binary,  octal,  hexadecimal,  etc.  The  bit 
length  of  the  literal  Is  stored  in  the  second  field  (Fig.  9).  The 
byte  offset  is  the  location  of  the  literal  value  (relative  to  the 
start  of  the  literal  pool) . 

The  second  half  of  the  table  (Fig.  8)  is  a  literal  pool  contain¬ 
ing  each  literal  value  in  the  format  that  conforms  to  its  type 
specification. 

Identifiers  have  null  entries  in  the  Literal/ldentif ier  Table. 

The  entries  with  undefined  type  (zero  values)  are  easily  recognized 
by  the  interpreter  as  identifier  entries.  The  length  and  offset  fields 
are  updated  by  the  interpreter  as  it  processes  the  input-data  stream. 

Types  B,  <fc,  X,  AD,  ED,  and  SB  point  to  32-bit  word-aligned  data  as  shown  below. 


Types  E  and  A  point  to  byte-aligned  symbol  streams  as  shown  below. 

Word-aligned,  L  <  256 


Word-aligned, 
32-bit  justified 


Fig.  9--Entries  in  the  Li teral/Identifier  Table 

Defined-Type  Table  (DFTYPE) 

The  Defined-Type  Table,  which  is  dependent  on  the  syntax  specifi¬ 
cation,  records  semantic  actions.  Each  entry  corresponds  to  a  produc¬ 
tion  in  the  DRS  syntax,  and  has  a  non-zero  value  that  is  the  ordinal 
of  the  defined-type  for  that  production.  For  example,  the  specifica¬ 
tion  for  the  defined-type  FORM 

FORM  RULE  |  FORM  RULE 


is  currently  the  second  defined-type  in  the  DRS  syntax.  The  production 
alternatives,  RULE  and  FORM  RULE,  are  the  second  and  third  productions 
in  the  specification.  Thus,  both  the  second  and  third  entries  in  the 
Defined-Type  Table  have  the  value  2  because  they  are  produced  from  the 
second  defined-type,  i.e.,  FORM. 

A  positive  value  indicates  that  a  non-null  semantic  subroutine 
exists  for  the  production.  If  the  value  is  negative,  the  semantic 
subroutine  is  null.  All  productions  are  recognized,  but  only  those 
with  positive  table  values  cause  semantic  actions. 

Fath  Table  (LTRNTKN) 

The  Path  Table  records  the  productions  recognized  while  parsing 
a  rule.  Each  entry  corresponds  to  a  defined-type.  For  example,  if 
the  third  syntactic  production  is  recognized,  the  second  entry  of  the 
Path  Table  contains  a  3  because  the  third  production  belongs  to  the 
second  defined-type.  The  semantic  subroutines  use  the  table  to  deter¬ 
mine  the  history  of  the  parse.  For  example,  there  is  a  semantic  sub¬ 
routine  for  the  second  produ  ion  of  the  defined-type 

ARITH  PRIMARY  |  ARITH  OPERATOR  PRIMARY. 

Recognition  of  the  production  requires  that  the  terms  ARITH,  OPERATOR, 
and  PRIMARY  be  previously  recognized.  fFor  each  of  these  earlier 
recognitions,  the  semantic  subroutines  did  generate  instructions  to 
load  the  run-time  stack  with  the  left  and  right  parts  of  the  arithmetic 
statement.)  The  term  OPERATOR  produces  no  semantic  action,  but  the 
production  of  the  defined-type  OPERATOR  is  recorded  in  the  Path  Table. 
When  the  semantic  subroutine  for  ARITH* s  second  production  is  invoked, 
the  table  is  examined  to  determine  which  OPERATOR  production  was  pre¬ 
viously  recognized,  and  thus,  which  arithmetic  instruction  should  be 
generated. 

Modifying  the  Semantic  Subroutines 

Three  modifications  to  the  semantic  subroutines,  not  involving  syn- 

t 

tax  changes,  are  discussed  below.  These  are  (1)  changing  a  non-null 

j 

'Also  see  Appendix  F. 
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subroutine,  (2)  inserting  a  non-null  subroutine,  and  (3)  making  a  non¬ 
null  subroutine  null.  Null  subroutines  perform  no  semantic  actions. 

Modifying  a  Non-Null  Subroutine 

Each  non-null  subroutine  is  identified  by  a  label  of  the  form 
SROUT(x),  where  x  corresponds  to  the  production's  BNF  ordinal.  When 
a  production  is  recognized  by  the  syntax  analyzer  (when  it  reaches  an 
apply  state) ,  its  ordinal  is  passed  as  an  index  to  the  semantic  sub¬ 
routines.  SMNTC  then  transfers  to  the  label  subscripted  b;.  that  index. 
For  example,  the  grammar  contains  the  following  production: 

LABEL  INTEGER  |  < EMPTY > 

The  Parser  Generator  assigns  index  numbers  L^  and  L^  to  the  pro¬ 
ductions  INTEGER  and  <EMPTY>.  If  the  first  is  recognized,  the  syntax 
analyzer  passes  L^  to  the  semantic  subroutines,  which  determine  whether 
the  semantic  subroutine  is  non-null.  If  not,  SMNTC  transfers  to  the 
label  SROUT(L^),  to  generate  the  code.  Every  non-null  semantic  sub¬ 
routine  terminates  by  transferring  to  EXIT,  NOOP,  or  ERROR.  To  modify 
the  existing  semantic  actions,  replace  the  code  bounded  by  the  label 
and  the  transfer. 

Replacing  a  Null  by  a  Non-Null  Semantic  Subroutine 

The  semantic  subroutines  detect  null  subroutines  by  checking  the 
Defined-Type  Table  entries.  A  negative  entry  means  the  subroutine  is 
null,  in  which  case  the  syntax  analyzer  regains  control  immediately 
after  the  production's  number  is  recorded  in  the  Path  Table.  To  insert 
a  non-null  semantic  subroutine  for  production  L^ ,  change  the  L^  entry 
in  the  Defined-Type  Table  to  the  production's  ordinal  and  insert  the 
semantic  code.  The  subscripted  (SROUTCL^)),  precedes  the  code.  The 
inserted  code  transfers  to  EXIT,  NOOP,  or  ERROR.  If  the  subroutine 
generates  code,  the  subroutine  transfers  to  EXIT  to  update  the  instruc¬ 
tion  counter.  If  no  instructions  are  generated,  the  subroutine  transfers 
to  NOOP.  If  an  error  is  detected,  the  subroutine  goes  to  ERROR,  where 
a  return  code  is  set  for  the  syntax  analyzer. 
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Deleting  a  Non-NiO  1  Subroutine 

To  make  a  non-null  subroutine  null,  set  a  negative  entry  in  the 
Defined-Type  Table.  Space  can  be  saved  either  by  converting  the  sub¬ 
routine  to  comments  or  by  deleting  it. 

Reflecting  DRS  Syntax  Changes 

When  the  DRS  syntax  is  changed,  the  Defined-Type  Table  and  the 
Path  Table  must  be  redefined  to  accommodate  the  new  specification.  In 
addition,  semantic  subroutines  that  are  syntax  dependent  must  be  up¬ 
dated.  To  minimize  program  changes,  place  any  new  def ined-types  after 
the  current  def ined-types .  New  table  entries  can  be  appended  and  the 
current  semantic  subroutines  need  not  be  changed.  Redefine  the  maximum 
lengths  of  both  tables  to  accommodate  the  new  entries. 

If  a  defined-type  is  changed,  but  the  number  of  productions  remains 
the  same,  replace  the  old  type-definition  by  the  new  one.  The  tables 
do  not  change.  Any  other  changes  in  syntax  normally  require  redefining 
the  tables  and  updating  some  semantic  subroutines. 

IMPROVEMENTS 

The  constraints  of  this  experiment  favored  reducing  compiler  J  nple- 
mentation  time  at  the  expense  of  optimization.  That  is,  rather 
concentrate  on  the  efficiency  of  generated  code  to  increase  the  inter¬ 
preter's  processing  rate,  we  wanted  feedback  from  early  use  to  judge 
the  effectiveness  of  this  mode  of  operation. 

This  subsection  identifies  the  more  obvious  compiler  modifications. 
Compiler  optimizing  techniques  have  not  been  examined  to  produce  the 
list  of  improvements.  The  kindr  of  improvements  enumerated  below  entail 
both  reorganization  and  recoding.  Payoffs  are  reduced  maintenance 
problems,  more  optimized  code-generation,  and  reduced  core  requirements. 

DRS  Syntax 

1.  Reduce  the  number  of  productions  to  decrease  program  size. 

Some  def ined-types  of  the  form  shown  below  are  extraneous. 
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A  :  :=  B 
B  C 


Apply  the  transitive  law  that  results  in  a  production  of  the  form 
shown  below. 

A  :  C 

2.  The  syntax  should  be  factored  where  possible,  as  illustrated 
below.  Specify 

X::-B|C|D|E|F 

Y  :  B  |  C  |  D  |  E  |  G 

as 

X  Z  |  F 

Y  ::«=  Z  |  G 

Z  B  |  C  |  D  |  E  . 

Parser  Generator  Output 

1.  To  reduce  maintenance,  collect  the  tables  generated  by  the 
Parser  Generator  into  a  single  subroutine  that  can  be  referenced 
externally. 


Lexical  Analyzer 

1.  Include  the  VOCAB  and  CHRTP  table  in  (1)  above. 

2.  Remove  the  order  dependencies  of  the  terminal  symbols  in 
the  VOCAB  and  CHRTP  tables. 

3.  Recode  the  analyzer  in  assembler  language  for  improved  speed. 
Syntax  Analyzer 

1.  Collect  the  state  tables  and  other  major  compiler  structures 
in  a  single  subroutine  that  can  be  referenced  externally. 

2.  Place  the  input/output  tables,  initialization  code,  and 
input/output  termination  code  in  SMFSIO. 


-30- 


3.  Collect  the  lexital,  syntactic,  and  semantic-diagnostic  han¬ 
dling  in  a  subroutine  invoked  only  by  the  syntax  analyzer. 

4.  Recode  the  analyzer  in  assembler  language. 

Semantic  Subroutines 

1.  Place  the  generated  instruction  sequence,  the  Label  Table, 
and  the  Literal/Identifier  Table  in  the  subroutine  containing  the  major 
compilt r  structures. 

2.  Evaluate  auy  arithmetic  expression  that  involves  a  sequence 
of  constants.  Currently,  in  an  arithmetic  expression  of  the  form 

5  +  6  +  7  -  3  , 

the  semantic  subroutines  would  produce  the  sequence 

IC  5 

IC  6 

ADD 

IC  7 

ADD 

IC  3 

SUB 

which  is  equivalent  to  an  IC  15.  Note  that  the  interpreter  can  already 
handle  two’  complement  arithmetic  for  the  12-bit  integer  constant,  IC. 
This  notion  v-ould  be  extended  to  include  literal  operands  and  the  con¬ 
catenate  operator,  with  the  appropriate  alignment  and  conversion  code. 

Note  that  though  tuis  improvement  is  rather  easy  to  implement  and 
often  cited  as  a  compiler  optimizing  technique,  in  practice  the  gain 
is  small  because  such  expressions  are  seldom  generated  by  the  user. 

3.  Currently,  the  address  and  branch  faults  (AD,  BF)  sequence 
is  generated  for  test  and  branch  at  the  end  of  each  term.  One  could 
define  a  new  instruction  to  load  a  branch  register.  This  instruction, 
the  first  of  each  rule,  would  load  the  register  with  the  address  of 
the  next  rule.  Upon  encountering  an  end-of-term,  the  interpreter 
would  then  test  the  Binary  Switch  register  and  either  continue  or 
branch  indirectly  through  the  branch  register. 
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4.  Currently,  the  instruction  sequence  is  kept  in  core  memory 

u  itil  the  entire  form  is  processed.  The  length  of  the  instruction 

sequence  is  calculated  after  the  form  is  processed,  and  the  length 

precedes  the  code  on  the  output  file.  The  length  should  be  written 

as  a  separate  file  (or  the  file  should  be  backspaced  to  write  the 

■f* 

length)  to  remove  the  artificial  limit  on  the  form's  size. 

5.  Remove  the  input/output  tables  from  the  semantic  subroutines 
and  place  them  in  SMFSIO. 

6.  The  routine  TABLES  is  detachable  from  the  semantic  subroutines 
and  can  be  replaced  by  a  dummy  routine  to  conserve  space.  TABLES  lists 
(on  the  diagnostic  file)  the  contents  of  the  Label  Table  and  Literal/ 
Identifier  Table. 

7.  If  ar’thmetic  expressions  involving  constants  are  evaluated 
by  the  compiler  (see  (2)  above),  it  is  possible  to  check  the  validity 
of  the  label  for  the  branch  forms  shown  below: 

S  (x) 

F(x) 

U(x) 

When  the  operand  x  is  an  arithmetic  expression  involving  constants 
alone,  the  semantic  subroutines  could  check  the  computed  value  for  an 
integer,  0  ^  n  ^  9999. 

8.  If  a  routine  is  written  to  centralize  error  processing,  (see 
(3),  Syntax  Analyzer  Improvements),  certain  syntax  errors  could  be 
corrected.  For  example,  the  term  "(A  .GE.  B  :  UR(5+x) ,"  contains  a 
syntax  error  in  the  control  field;  the  user  omitted  the  second  right 
parenthesis  before  the  comma.  The  error-processing  routine  could  force 
"recognition"  of  the  missing  right  parenthesis.  Two  practical  results 
are  achieved.  If  the  form  contains  only  a  few  such  errors,  it  does  not 
have  to  be  recompiled;  by  continuing  the  compilation,  other  errors  can 
be  detected  and  reported.  Corrective  actions  can  be  taken  where  the 
error  involves  a  terminal  for  a  defined-type  represented  by  a  single 
production.  In  fact,  any  composite  that  reduces  to  a  unique  terminal 

^The  current  limit  is  2000  instructions.  To  increase  the  size, 
change  the  variables  MXINSTS  and  CODE. 
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(e.g.,  a  missing-rule  delimiter  at  the  end  of  a  form,  a  missing  comma 
between  descriptors,  or  a  missing  colon  before  a  control  expression) 
can  be  corrected. 

Some  semantic,  errors  can  be  flagged  and  temporarily  ignored  in 
order  to  compile  as  much  as  possible.  Errors  reported  by  the  semantic 
subroutines  are  usually  such  that  the  instructions  are  non-executable. 
When  such  errors  are  detected,  the  compiler  skips  to  the  next  rule. 
Instead,  the  error  condition  could  be  held  in  abeyance  until  either  an 
uncorrectable  syntax  error  is  found  or  until  the  entire  form  is  parsed. 
For  example,  such  errors  as  a  doubly  defined  label  or  a  compiler  table 
overflow  can  be  treated  this  way. 

Find  Literal  (FINDLT) 

1.  Literals  currently  begin  on  a  full-word  boundary,  but  could 
be  aliened  on  a  byte  boundary  because  the  interpreter  is  independent 
of  boundary  alignment. 

File  Input-  'Output 

1.  Add  a  new  entry  point  in  SMFSIO  for  the  following  (see  Ref.  11 
to  understand  the  jargon). 

a.  Open  a  duplex  connection  for  a  file,  given  the  name. 
Establish  the  socket  numbers^  within  chis  entry  point 
rather  than  in  PRSEk,  where  it  is  currently  done. 

b.  Issue  a  delete  and  an  allocate  file  command  for  all  but 
♦•he  source  file. 

c.  Issue  a  read  command  to  open  the  source  file. 

d.  Attempt  to  get  the  input  from  the  SYSIN  data  set  if  the 
source  is  not  available.  Write  diagnostic  messages 
accordingly . 

Add  a  new  entry  point  in  SMFSIO  to  close  all  files.  If  a  file 
error  is  detected,  delete  the  object  files  if  they  exist. 

^Socket  numbers  are  the  names  of  each  eri  of  ARPANET  logical 
message  paths. 
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2.  Remove  input/output  dependencies  in  the  compile:  by  moving 
the  input/output  tables  to  the  subroutine  containing  the  major  compiler 
structures,  and  by  executing  all  input/output  within  SMFSIO. 
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V.  DISCUSSION 


COMPILER  DEVELOPMENT 

A  primitive  version  of  the  semantic  subroutines  was  coded  and 
tested  using  JOSS  [14],  a  console-oriented  language.  JOSS  is  strictly 
algebraic  and  provides  a  limited  amount  of  working  storage. 

After  initial  checks,  the  semantic  routines  were  coded  in  Conver¬ 
sational  Programming  System  (CPS)^*  [15],  another  console-oriented  lan¬ 
guage.  The  lexical  analyzer  and  the  routines  to  manage  semantic  tables 
were  coded  in  CPS  and  checked  and  then  combined  with  the  semantic  sub¬ 
routines  and  a  crude  syntax  analyzer.  The  combined  program  taxed  the 
storage  limits  of  CPS,  but  a  working  version  of  the  compiler  was 
developed. 

The  CPS  program  was  then  translated  to  PL/1.  In  the  PL/1  version 
of  the  compiler,  the  semantic  subroutines  and  lexical  analyzer  were 
fully  developed  and  tested.  A  skeleton  syntax  analyzer  from  the  Parser 
Generator  replaced  the  CPS-coded  analyzer;  the  state  tables  and  the 
input/output  routines  were  added. 

LOOKING  BACK 

Perhaps  the  compiler  should  have  been  coded  directly  in  PL/1, 
rather  than  in  intermediate  forms  in  the  other  languages.  Many  of  the 
limitations  encountered  in  JOSS  and  CPS  do  not  exist  in  PL/1.  Sections 
of  troublesome  code  couid  have  been  coded  in  CPS  In  order  to  debug  them 
easily,  and  chen  '-ecoded  in  PL/1  in  parallel  to  the  PL/1  program 
development. 

Compiler  writing  systems,  e.  the  Parser  Generator,  provide  a 
skeleton  compiler  of  the  lexical  and  syntax  analyzers  as  well  as  con^n- 
ient  input/output  mechanisms  for  the  compiler’s  input  and  the  semantic 
output.  They  free  the  user  to  concentrate  on  the  BNF  syntax  and  the 
semantics.  We  used  only  the  syntax  analyzer  skeleton  with  no  major 

^CPS  offers  a  subset  of  PL/1  constructs. 
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inconvenience.  However,  the  greatest  inconvenience  was  that  we  did 
not  use  the  Parser  Generator  for  its  intended  purpose — generating  an 
XPL-coded  compiler.  Because  our  compiler  was  PL/l-coded,  we  had  to 
go  through  the  previously  described  editing  process,  which  introduced 
many  clerical  errors. 

The  compiler  began  with  a  simple  input/output  method  that  reads 
card  images  and  prints.  Input/output  code  and  tables  are  scattered 
throughout  the  compiler.  Closer  attention  to  input/output  from  the 
beginning  would  have  prevented  a  number  of  problems  that  were  later 
uncovered.  Some  of  the  suggested  improvements  reorganize  the  input/ 
output  into  a  centralized  component. 


Preceding  page  hank 
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Appendix  A 
PARSER  GENERATOR' 


OUTPUT 
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J  /  JORL  I R  DO  nSN  =  RS7A.S.LALR  *DI  SP  =  SHR 

//  F X EC  PGM  =  LALR,RFGinN  =  ?28K 

//NnNTFRM  DO  SPACE=(CYL,9) *UNIT=SYSDA 

//FSMDATA  OD  SPACF=(CYLt 9 ) f UNI T=SYSnA 

//PTABLFS  OD  SYSOUT=B,OCB=  (RFCFM=FRf  LRFCL=RO, RLKSI  ZE=400) 
//SYSPRINT  OD  SYS0UT-Afr)CR=(RFCFM  =  FRA»LRPCL  =  133fRLKSIZF=199Ij) 
//SYSIN  DO  * 

OPTIONS  (  RNF*  A  INPUT  *GPOST.DFTA  I  LFn,LALR,NlOTR  ACF  ,  GRAMMAR  ,NOSXRFF  ) 
GLUMP  FORM 
FORM  RULE 

FORM  RULE 

RULE  LARFL  I  NPUTSTR  F  AM  OUTPIITSTR  FAM  : 

larfl  INTEGER 

<EMPTY> 

INPUTSTRFAM  TERMS 
<FMPTY> 

TFRMS  TERM 

TERMS  ,  TERM 

OUTPUT  STREAM  SEPERATOR  TERMS 
<FMPTY> 

TERM  IDFNTIFIEF  (  DESCRIPTOR  CONTROL  ) 

I  DENT  I F I F  E 

(  DFSCRIPTOR  CONTROL  ) 

(  COMPARFXPR  CONTROL  ) 

(  ASSGNEXPR  CONTROL  ) 

IDENTIFIER  IDFNTIFIFR 

DFSCRIPTOR  RFP  ,  DAT YP  F  f  VALUE  *  LENGTH 
CONTROL  :  OPTIONS 
<  EMPT  v> 

COMPAREXPR  CONCAT  CONNECTIVE  CONCAT 
<FMPTY> 

ASSGNEXPR  IDFNTIFIFR  .<=.  CONCAT 
IDENTIFIER  A 

p 

E 

F 

L 

0 

s 

T 

U 

V 

X 

AD 

ED 

FR 

SR 

SR 

UR 

<AL PHA  ALPHANIJM> 

RFP  U 

AR  I  TH 
<EMPTY> 

DATYPE  LI  TYPE 

T  (  IDENTIFIER  ) 

<FMPTY> 

VAI.UF  CONCAT 


<EMPTY> 

LENGTH  ARITH 

<  FMPT Y> 

OPTIONS  TEST 

TEST  ,  TEST 
CONCAT  VAL 

CONCAT  I  I  VAL 
CONNECTIVE  .LE. 

.LT. 

.GE. 

.GT. 

.EO. 

•  NE. 

ARITH  PRIMARY 

ARITH  OPERATOR  PRIMARY 
LITYPE  R 
0 
X 
P 
A 

EO 

AO 

SR 

TEST  <SFIJR  I OENT>  (  ARITH  ) 
VAL  LITYPE  LITSTRING 
ARITH 

PRIMARY  I  PENT  I E  I  FR 

L  (  IDENTIFIER  ) 

V  (  IDENTIFIER  ) 

INTEGER 
OPERATOR  + 

« 

/ 

<SEOR  IDENT>  S 
F 
II 
SR 
ER 
OR 

SEPERATOR  : 

/« 
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/*  THFSt  ARE  LALR  PARSING  TARLFS  */ 


DFCLARF 

MAXR  ft 

LITFRALLY 

•55*  : 

/* 

MAX 

R  F  AD  H  */ 

DECLARE 

MAXL# 

LITERALLY 

'90' : 

/* 

MAX 

L  DDK  ft  */ 

DECLARE 

MAXP# 

LITERALLY 

'  104  • 

;  /* 

MAX 

PUSH  ft  */ 

DECLARE 

MAXS# 

LITFRALLY 

•  194  i 

:  /* 

MAX 

STATE  it  */ 

DECLARE 

START 

.STATE  LITFRALLY 

•  56 

•  • 

OFCLARE  TERMINAL*  LITERALLY  'AO':  /*  *  DF  TERMINALS  */ 

DECLARE  VDCAB#  LITFRALLY  »69'; 

OECLARE  VflCABI  VOCAR«)  CHARACTFR  INITIAL  ("  ,  '(','+  ,  ')',':  S'-','/ ' 

♦  ' * ' f ' : ' f '#' . ' A' , • B 1 , 'F ' , 'F ' , 'L ' f 'O' , • S' » ' T ' ,  Ml' , 'V' , 'X ' • ' |  I  ' * ' AD' • 'EO' 
,  'FR  ',  'SB',  '  SR  ',  'UR  ',  '_|_S  '.<  =  •  S  SEO.  ',  '.GF.  ',  SGT.  ',  SLF.  ',  '.LT.  ' 

,  SNE.  '  , ' <FMPTY>' ,  ' INTEGER ', 'Ll TSTR I NG' • '< ALPHA  ALPHANUM> ' ,  '  REP  '  ,  '  VAL ' 

,  '  EDRM  '  ,  'RULE  ', ' TERM', ' TEST ', ' AR I TH ',  'GLUMPS  'LABELS  'TERMS  '  ,  'VALUE  ' 

, 'CUNCAT' , 'DATYPE' , • LFNGTH S ' L I TYPF ' , 'CONTROL' , 'OPTIONS' , 'PRIMARY' 

,  'OPERATOR ' , ' ASSGNFXPR ' , 'SEP FRA  TOR' , 'COMPARFXPR ' , 'CONNECTIVE  ' 

,  'DESCRIPTOR'  ,  '  IDENTIFIES  S  '  IDENTIFIERS  '  INPUT  STREAM'  ,  '<SFIJR  I  DENT>  ' 

♦  'OUTPUTSTREAM  •  )  : 

.CLARF  P#  LITERALLY  '90';  /*  it  OF  PRODUCTIONS  */ 

DECLARE  STATE_NAME(MAXR#)  B I T ( 8 )  INITIAL  ( Ot 0 • I , I , 1 • I • 1 , I , R , 8 • ft  ,  8  •  8 , 9 
,15,18,20,22,30,41,43,46,47,47,47,47,47,49,50,50,51,52,52,52,52,53,55 
,56,56,56,56, 59,60*61,62,63,64, 64,65*66,66, 66,66, 67, 68*69); 

DECLARE  RSIZE  LITERALLY  '373'J  /*  READ  STATFS  INFO  */ 

DECLARE  LSIZF  LITERALLY  '83':  /*  LOOK  AHEAD  STATES  INFO  */ 

DFCLARF  ASIZF  LITERALLY  '54':  /*  APPLY  PRODUCTION  STATES  I NFO  */ 

DECLARE  READ1 (RSIZE )  R I T ( B )  INITIAL  (0,38,10,11,12,13,14,15,16,17,18,19 
,20,21,23,24,25,26,27,28,38,40, 10, 11, 12, 13, 14, 15, 16, 17,18,19,20,21,23 
,24,25,26,27,28,38,40,11,12,13,14, 15,16,17, 18,19,20,21,23.24,25,26,27 
,28,40,11,12,13,14,15,16,17,18,19,20*21,23,24,25,26,27,28,40,11,12,13 

♦  14,  15,16,17,18,19,20,21,2  3,24,2  5,26,27,28,40,  11,12,13,14,15,16,17,18 
,19, 20, 21, 23, 24,25, 26, 27, 28, 38, 40, 1,11, 12, 13, 14, 15,  16, 17, 18,19,20, 21, 23 
,  24, 25, 26, 27, 2R, 40,  1  1  ,  12, 13,  16, 18, 2 1,23, 24, 26, 1  1  ,  12, 13,  14, 15, 16, 17, 18 
,19,20,21,23,24,25,26,27,28,38,40,14,17,19,25,27,28,11,12,13,14,15,16 

,  17,18,19,20,21,23.24,25,26,27,28,38,40,14,  17, 19,25,27,28,1,  1,1,  1  1,12 
,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,38,40,11,12,13,14*15,16 
,  17,18, 19,20,21,23,24,25,26,27,28,38,40,8,29,38,8,2,3,6,7,2,3,6,7*2,3,6 
,7,2 ,3, 4, 6, 7, 2, 3 ,6 ,7, 1,1 1,12, 13 ,14, 15, 16, 17, 18,19,20, 21, 23 ,24,25 ,26,2  7 
,28,40,8,8,8,22,31,32,33,34,35,36,22,2  2,22,8,39,4,4,4,4,  11  ,  12,13,  14,  15 
,16,17,18,19,20,21.23,24,25,26,27,28,38,40,9,1,11,12,13,14,15,16,17,18 
,  19, 20, 2 1,23, 24, 25, 26, 27, 28, 40, 9, 11  ,  12, 13,  14,  15, 16, 17, '8, 19, 20, 2 1,2 3, 24 
,25,26,27,28,38,40,9,9*1,30,4,4,4,9,1,5); 

DECLARE  LDDKKLSIZF)  BIT(ft)  INITIAL  < 0* 38 , 0,4 , 8 ,9,0  *  8 , 0 ,8 ,0 , R *0 ,4,9, 0 
,39,0,39,0,39,0,1,0,39.0,1,0,39,0,39,0,39,0,39,0,29,38,0,8,0,2*3,6,7,8 


-41- 


.0,8*0, 2, 3, 6, 7, 0,4, 9, 0,5*9, 0,8, 0,8, 0,22, 0,22, 0,22, 0,9, 0,9, 0,9, 0,9, 0,1,0 

♦30,0,9,0) ? 

/*  POSH  STATES  ARE  BUILT-IN  TO  THF  INOFX  TABLFS  */ 

OECLARE  APPLY1 ( ASIZF)  BIT(8)  INITIAL  (0,0,0,20,0,0,0,43,0,0,8,0,0,3,0 
, 44 , 46, 47, 0,0, 0,27,2,8,43, A, 5, 6, 0,0, 0,0, 0,0, 45, 18,10,0, 0,2, 3, 7, 12, 0,9,0 
,11,0, 17,0,41,0,0,0,0) : 

OECLARE  RFAD2(RSIZF)  BIT(R)  INITIAL  (  0 , 1 09 , 147 , 62  ,  63 , 64 , 1  32 , 65  ,  6ft  ,  1  35 
,136, 137, 67, 68, 49,70, 142,71, 144, 145, 183, 146, 147, 129, 130, 131,132, 65, 134 
, 135, 136, 137,67, 139, 140, 141, 142,143, 144, 145, 183, 146,129, 130, 131 , 132, 133 
,134,135,136,137,138,139,140, 1 4 1 , 1 42 , 143 ♦ 1 44 , 1 45 , 146 , 1 29 , 1 30 , 1 3 1 , 1 32 
,133,134,135,136,137,138,139,140,141,142,143,144,145,146,129,130,131 
,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,129,130 
,131,132,65,134,135,136,137,67,139,140,141,142,143,144,145,183,146,57 
,129,130,131,132,133, 134,135,136,137, 138,139,140, 141,142,143,144,145 
, 146, 173, 169, 172, 170, 15, 171 , 175, 1 74 1 176,62,63,64, 132,65,66, 135, 136, 137 
,67,68,69,70,142,71,144,145,183,146, ’ p9 , 1 88 , 190, 1 92 , 19 1 , 193 , 1 29 , 1 30 , 1 3  1 
,  132,65,  134,  135,  136, 1  37,67,139, 140,  141, 142, 14  3, 144,145, 183, 146, 1R9, 188 
,190* 192, 191, 193,4,6,5,62 ,63,64,132,65,66, 135, 136, 137,67,68,69,70, 142 
,71,144,145,183,146,62,63,64,132,65,66,135.136,137,67,68,69,70,142,71 
,144, 145, 18  3, 146,59, 105, 109, 1 1,  184, 1R 6, 18  5, 187, 184,  186, 18  5, 18  7, 184, 186 
, 185, 187, 184, 186, 177, 185,187, 184, 1R 6, 185, 187,57, 129, 130, 131, 132, 133, 134 
,135,136,  137,138, AJ9, 140, 141, 142,143, 144,145,146,8,8,61, 17,165, 163,164 
, 161, 162, 166, 17, 17, 17,60, 178, 121 , 120, 119, 117, 129, 130, 131 , 132,65, 134, 135 
,136,137,67,139,140,141,142,143,144,145,183,146,13,57,129,130,131,132 
, 133, 134, 1 ^5, 136, 137, 138,139, 140, 141, 14?, 143, 144, 145, 146, 1 3,62,63,64 
,132,65,66,135,136,137,67,68,69,70,142,71,144-145,183,146,13,13,58,18 
,181,182,151,194,7,108): 

DECLARE  LnDK2( LSI ZE )  B I T ( 8 )  INITIAL  10,1,91,92,93,92,2,94,3,95,9,96.10 
, 97, 97, 1 2, 1  73, 129, 169, 13v,,  172,  13 1,14, 133, 170, 134,  16, 138, 17 1,  1 39, 175, 1 40 
, 174, 141, 176, 143,20,20,98,21, 157,22,22,22,22, 148, 179, 148,23,24,24,24,24 
,179, 155, 155, 26,99, 99, 27, 28, 111, 29, 115, 32, 126, 33,128, 34, 153, 42, 100, 44 
,101,46,102,47,103,48,118,49,180,53,104); 

OECLARF  APPLY2( ASIZF)  B I T ( 8 )  INITIAL  (0,0,72,107,106,78,90,80,79-55,114 
, 113, R8, 87, 86, 38, 39, 40, 37, 85, 84, 122, 89, 122, 122, 50, 51, 52, 180,19,35,30 
, 123, 124,81,82,83.31 ,45,74,75,25, 77, 76, 150,36, 158,73, 160, 159, 168, 167, 41 
,54,43)  : 

DECLARE  INDEXKMAXSb  )  B  I  T  (  1 6  )  INITIAL  (  0,  1 , 2 , 22 , 42 , 60 , 78 , 96  ,  )  1  5 , 1  34 , 1 4  3 
,162,168,187,193, 194 , 1 9 5 , 1 96 , 2 1 5 , 234 , 235 , 2 37 , 238 , 242 , 246 , 2 50 , 2 55 , ? 59 
,278,279,280,281 ,288,289,290, 29 1 , 292 , 293 , 294 , 295 , 296 , 297 , 3 16 , 3 1 7 , 336 
,337,356,357,358,359, 360,361,362,363.364,365, 1,3,7,9,11,13,16,18,20,22 
♦  24, 26, 28, 30, 32, 34, 36, 35, 41, 47, 49, 54, 57, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78 
,80,82*110,127,149,149. 15?,  154, 156*  1 10, 11 2,  12 5,  125, 12 5, 12 5, 116, 1,2, 2, 3 
,5,5,6,6,7,7,9,9,10,10,10,10,10,12,13,15,15,19,19,20,21,21,21,21,21,21 
,21,21,21,21,21,21,21,21,21,21,21,21,29,29,29,30,30,30,31,31,32,32,33 
,33,34,34,38, 38,38 ,38, 38, 38, 39, 39, 44, 44, 44, 44, 44,44,44,44,46, 48, 48, 50 
,50,50,50,52,52,52,5  2,53,53,53,5  3,53,5  3,54)  : 

DECLARE  I NDEX2 ( MAXS# )  BIT(B)  INITIAL  (0,1,20,20,18,18,18,19,19,9,19.6 
,19, 6, 1,1, 1,19, 19, 1,2, 1,4, 4, 4, 5, 4, 19, 1,1, 1,7, 1,1, 1,1, 1,1, 1,1, 1,19. 1,19 
,1,19, 1,1, 1,1, 1,1, 1,1, 1,1, 2, 4, 2, 2, 2, 3, ?, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 6, 2. 5, 3, 3 
,2,2,2,2,2,2,2.2,2,2.2,2,1,2,2,3,9,10,12,20,27,42,44,46,47,53,1,0.1,3,0 
,0,0, 0,0, 2, 1,0,4, 0,3, 3, 3, 0,6, 1,0, 2, 0,2, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 
,0,0, 0,0, 0,0, 3, 0,0, 0,0, 0,0, 2, 0,2, 0,0. 0,0, 0,0, 0,2, 0,0, 0,0, 0,0, 0,0, 3. 1.0 
,0,3, 3, 0*0, 0,0, 0,0, 0,0,0, 0,0,0): 
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/*  THF  FOLLOWING  IS  THF  I M  M 1 1 T  GRAMMAR  */ 


/* 

1 

GLUMP  ::=  FORM  _|_ 

*/ 

/* 

2 

FORM  :  :=  RtJLF 

*/ 

/* 

3 

1  FORM  RIJLF 

*/ 

/* 

4 

ROLF  ::=  LABEL  INPUTSTRFAM  OUTPMTSTRF AM  i 

*/ 

/* 

5 

LABFL  ::=  I NTFGFR 

*/ 

/* 

6 

| 

*/ 

/* 

7 

INPUTSTRFAM  : :=  TFRMS 

*/ 

/* 

fi 

1 

*/ 

/* 

9 

TERMS  ::=  TFRM 

*/ 

/* 

10 

1  TFRMS  ,  TFRM 

*/ 

/* 

11 

UUTPUTSTRF AM  =  SFPFRATOR  TFRMS 

*/ 

/V 

12 

1 

*/ 

/* 

13 

TFRM  I OENTI FIFE  (  OFSCRIPTOR 

CONTROL  ) 

*/ 

/* 

14 

1  I  DENT  I F I FF 

*/ 

/* 

15 

1  (  DESCRIPTOR  CONTROL  ) 

*/ 

/* 

16 

!  (  COMP AR  F X PR  CONTROL  ) 

*  / 

/* 

17 

1  (  ASSGNFXPR  CONTROL  ) 

*/ 

/* 

lfi 

IDENTIFIFF  s:=  I OFNT I F I FR 

*/ 

/* 

19 

DESCRIPTOR  ::=  RFP  ,  DAT YPF  ,  VALUE  ,  LENGTH 

*/ 

/* 

20 

CONTROL  :  OPTIONS 

*/ 

/* 

21 

1 

*/ 

/* 

22 

COMPAREXPR  CONCAT  CONNFCTIVF 

CONCAT 

*/ 

/* 

23 

1 

*/ 

/* 

24 

ASSGNFXPR  ::=  IDENTIFIER  .<=.  CONCAT 

#/ 

/* 

25 

IDENTIFIER  : : =  A 

*/ 

/* 

26 

1  R 

*/ 

/* 

27 

1  F 

*/ 

/* 

28 

1  F 

*/ 

/* 

29 

1  L 

*/ 

/* 

30 

1  0 

*/ 

/* 

31 

1  S 

*/ 

/* 

32 

1  T 

*/ 

/* 

33 

1  0 

*/ 

/* 

34 

1  V 

*/ 

/* 

",  ' 

1  X 

*/ 

/* 

3 

1  AD 

*/ 

/* 

37 

1  ED 

*/ 

/* 

38 

1  FR 

*/ 

/* 

39 

1  SR 

*/ 
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/* 

40 

1  SR 

*/ 

/* 

41 

1  HR 

*/ 

/* 

42 

1  <ALPHA  AL  PHANUM> 

*/ 

/* 

43 

RFP  : :=  * 

*/ 

/* 

44 

1  ARITH 

*/ 

/* 

45 

I 

*/ 

/* 

46 

OATYPF  ::=  LITYPF 

*/ 

/* 

47 

!  T  (  IOFNTIFIFR  ) 

*/ 

/* 

4R 

I 

*/ 

/* 

49 

VALUE  ::=  CONCAT 

«/ 

/* 

50 

1 

*/ 

/* 

51 

LENGTH  ::=  ARITH 

#/ 

/* 

52 

1 

*/ 

/* 

53 

OPTIONS  TFST 

*/ 

/* 

54 

1  TFST  ♦  TFST 

*/ 

/* 

55 

CONCAT  VAL 

*/ 

/* 

56 

I  CONCAT  1  I  VAL 

*/ 

/* 

57 

CONNECTIVE  ::=  . L F • 

*/ 

/* 

58 

1  .LT. 

«/ 

/* 

59 

1  .OF. 

*/ 

/* 

60 

1  •  GT  • 

*  / 

/* 

61 

1  •  FO  # 

*  /' 

/* 

62 

I  .NF. 

*/ 

/* 

63 

ARITH  PRIMARY 

*/ 

/* 

64 

1  ARITH  OPFRATOR  PRIMARY 

*/ 

/* 

65 

LITYPF  ; :=  R 

*/ 

/* 

66 

1  0 

*/ 

/* 

67 

!  X 

*/ 

/* 

68 

1  E 

*/ 

/* 

69 

1  A 

*/ 

/* 

70 

!  FO 

*/ 

/* 

71 

I  AO 

*  / 

/* 

72 

!  SB 

*/ 

/* 

73 

TFST  ::=  <SFUR  IOFNT>  (  ARITH  ) 

$/ 

/* 

74 

VAL  :  :=  LITYPF  LITSTRING 

*/ 

/* 

75 

1  ARITH 

*/ 

/* 

76 

PRIMARY  ::=  IOFNTIFIFP 

^  / 

/* 

77 

1  L  (  IHFNTIFIFR  ) 

#/ 

/* 

78 

1  V  <  IDENTIFIER  ) 

*/ 

/  * 

79 

I  INTFGFR 

*/ 

/* 

80 

OPERATOR  ::=  + 

*/ 

/<- 

81 

1  - 

*/ 

/* 

82 

!  * 

*/ 

/* 

83 

1  / 

*/ 
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/* 

84 

<SFIJR  IDFNT>  = 

S 

/* 

85 

1 

F 

/* 

86 

1 

II 

/* 

87 

I 

SR 

/* 

88 

1 

FR 

/* 

89 

1 

UR 

/* 

90 

SFPFRATUR  :  : =  t 
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/*  TH6SF  ARF  LALR  PARSING  TABLES  */ 

DFCL  AR  F  MAXR*  LTTFRALLY  '55':  /*  MAa  RFAD  U  */ 

DFCLARF  MAXL«  LITFRALlY  '  90 '  :  /*  MAX  LOOK  #  */ 

DFCL  AR  F  MAXP#  LITFRALLY  MO'*':  /*  MAX  PUSH  «  */ 

DFCLARF  MAXS*  LITFRALLY  *194';  /*  MAX  STATF  H  */ 

DFCLARF  START_STATF  LITFRALLY  '56': 

DFCLARF  TERMINAL*  LITFRALLY  'AO';  /*  *  DF  TFRMINALS  */ 

DFCLARF  VDCAP*  LITFRALLY  '69': 

DFCLARF  VDCAHI VOCAB« )  CHARACTER  INITIAL  ('',  • (','♦•,•*•,')  '  -  '  *  '  /  ' 

c  » 'A •  , 'B ' , «  F '  ,  • F •  ,  • L •  , •0* ,  • S •  ,  ' T  •  ,  »U' , ' V' ,  - X •  , '  |  I  •  .  '  A () '  ,  '  F  0  ' 

,  *FR ', 'SB ', 'SR ',  'UR FO. ',  «.GF.  ',' .GT.  ',' .LF. ',' ,LT. • 

,  '  ,NE.  *  ,  »<FMPTY>'  ♦  '  1NTFGFR  ' , ' L I T STR I NG ' , ' < ALPHA  ALPHANIIM>  •  ,  •  RFP  '  ,  '  VAL  ' 

,  T-DRM' , 'RULE ', 'TERM* , 'TFST  5 , 'ARI TH* , 'GLUMP* , 'LABEL ',' TERMS' ,' VALUE  ' 

, 'CDNCAT ' v  ' DAT YPF ' , 'LENGTH ' *  '  L  l  T  Y  P  F  '  , 'CONTROL '  , ' OPTIONS' ,  '  PR  1  MARY  ' 

,  'OPERATOR • ,  ' ASSGNEXPR • , • SFPFRATOR ' ,  'COMPARFXPR ' , 'CONNECT  I VF • 

, 'DESCRIPTOR • , • I  OF NT  I  FIFE' ,  •  IDFNT I  FI FR • , • INPUT STREAM* , *<SFUR  IOFNT>' 

, ' OUTPUT  STR  F*  M  » ) ; 

DECLARE  P M  LITFRALLY  '90':  /*  H  OF  PRODUCTIONS  */ 

DECLARE  STATE_NAMF (MAXR« )  BIT(R)  INITIAL  ( 0,0, 1 , 1 , 1 , l , 1 ,  l  , 8 , 8 , R , 8  ,  R  ,  9 
,15,18,20,22,30,41,43,46,47,47,47,47,47,49,50,50,51.52,52,52,52,53,55 
,56,56,56,56,59,60,61,62,63,64,64,65,66,66,66,66,67,68,69): 

DECLARE  RSIZF  LITFRALLY  *373';  /*  R  F AD  STATES  INFO  */ 

DFCLARF  AS1ZF  LITERALLY  '54':  /*  APPLY  PRODUCTION  STATES  INFO  */ 

DECLARE  READKRSIZF  J  BIT(R)  INITIAL  (0,38,10,11,12,13,14,15,16,17,18,19 
, 20,21,23, 24,25, 26,?7, ?R, 38,40, 10,1 1 , 12,  1 3,  14, 1 5,  16, 1  7, lb, 19,20,21 ,23 
,24,25 ,26, 2 7,28, 3R, 40,11 ,12,13, 14,15, 16,17, l R,1 9,20,21 ,23,24,25,26,2  7 
,2R, 40, 11,  12, 13,  14,  15, 16, 17,18,19,20, ? 1,23, 24. 25, ?6, 27, 28, 40,  11,  12,13 
,  1  4, 1  5, 1 6,  1  7, 1R,  19 , 20, 2 1,23, 24, 25, 26, 27, 28, 40, 11  ,1.?,  13, 14, 15, 16,1  7, 1R 
,  19,20,21 ,23,24,25,26,27,28, 3P. 40, 1,  1  1,12, 1 3, 14, 15, 16, 17, 1R, 19,20,21  ,23 
,2^,25,26,27,28,40, 11,12,13, 16, 1R,21 ,23,24,26, 11 , 12,13, 14, 15,16, 17, 18 
,  19,20,21,23,24,25,26,27,28,38,40,14, 17,19,25,27,28, 11,  1  2,  13,14, 15, 16 
, 17,18, 19,20. ?1 ,23,24, 25, 26,27, 2R,3R, 40,1 4, 17, 19,25,27,28, 1  ,  1  ,1  , 1  1  ,  12 
,13, 14, 15-16, 17, 18,19,20. 21, 23, 24, 25,26, 27, 25, 38, 4 0,11, 12, 13, 14, 15,16 
, 17, 18, 19, 20, 21, 23, 24 ,25,16, 27, 2R, 38, 40, 8, 29, 38,8,2,3, 6, 7, 2, 3, 6, 7, 2, 3, 6 
,7, 2,3, 4, 6, 7, 2, 3, 6,7,1, 11, 12, 13, 14, 15, 16, 17, lfl,19,?f),?l, ?3,?4,?5, 26,27 
,28,40*8,8,8,22,31  ,32,33,34,35,36,22,22,22,8 ,39,4,4,4,4, 1 1, 12,1 3. 14, 15 
,  16, 17, 18, 19,20, 21, 23, 24, 25, 26, 27, 28, 3R, 40, 9, 1,11, 12, 13, 14, 15, 16, 17,  1R 
, 19,20,21,23,24,25,26,2  7,28,40,9,11 ,12,13, 14, 15,  16,  17,18,19,20,21  ,23,2' 
,25,26,27,28,38,40,9.9, 1,30,4,4,4,9, 1 ,5} : 

DFCLARF  LflDKl  (LSIZ.F  )  BIT(R)  INITIAL  (  0  ,  ?R  ,  0, 4 ,8 , 9 , 0 , 8 , 0, 8 , 0 , 8 , 0  ,  ,9,0 

,39, 0,39, 0,39, 0,1, 0,39, 0,1, 0,39,0, 39, 0,39, 0,39, 0,29,38, 0,8. 0,2, 3, 6, 7, 8 
,0,8 ,0, 2, 3, 6, 7, 0, 4, 9, 0,5, 9, 0*R, 0,8,  >22,0,22,0,22,0,9.0,9,0,9,0,9,0,1  ,0 

,30,0,9,0) : 

/*  PUSH  STATES  ARF  BUILT-IN  TO  THE  INDEX  TABLFS  */ 

DFCLARF  APPLY1 ( ASI7F )  RI  {8)  INITIAL  <0,0,0,20,0,0,0,43,0,0,8,0,0,3,0 
,44, 46, 47, 0,0,0,27, 2, 8, 43, 4, 5, 6, 0,0, 0,0, 0,0, 45, 18, 10, 0,0, 2,3,7, 12, 0,9,0 
,11,0,17,0,41.0,0,0,0): 

DFCLARF  RFAD2IRSIZF)  BIT(R)  INITIAL  (0,109,147,62,63,64,132,65,66,135 
,  1  36, 137, 67, 6R, 69, 70,  142.71 , 144,145,  183,  146, 147, 129,  130,  131, 132,65, 134 
135, 136,137,67, 139,140,141 , 142,143,144, 145, 1R 3. 146, 129, 130, 131 , 132 , 1 33 

,134,135,136,137,138,139,140,141,142,143,144,145,146,129,130,131,132 
,133,134,135,136,137,138,139,140,141.142,143,144.145,146,129,130,131 
,  132, 133, 134, 135, 136, 137, 13R, 1 39, 140,  141 , 142, 14  3, 144, 145, 146, 1 29, 1 30 
, 1 31 , 132,65, 134, 135, 136, 137,67 ,1 39, 140, 141 ,142, 143, 144,  5,183,146,57 

,129, 130,  131 , 132, 133,134, 135, 136,1  37,138, 139, 140, 14  1, 14;  ,  143, 144, 145 
,146, 173, 169, 172, 170, 15, ]?1,175,’.  .  .  176,62  ,63 ,64, 1  3  2, 6v,  66,  US,  1  36,  I  37 

,67,68,69,70, 142, 71 , 14*,,  145, 1  8  3, 1  6,189,188,190,192,191*193,129,130,131 
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,  13?,  6  5, 1", 4, 135, 136,137,67,139, 140,141  , 14? , 143 , 144 , 145 , 1R3 , 146 , 1 R9, 188 
, I 90, 1°  ,91 , 193,4,6,5,62,63,64,132,65,66, 135, 136, 137, 67, 6R, 69, 70, 142 

,71 ,1*  46, 1R3» 146, 6?, 63, 64, 13?, 65, 66, 135,136, 137,67,68,69,70, 14?, 71 

,144,1  1R3, 146,59, 105, 109,11, 184,1 R6, 1R 5, 1R7, 1R4, IPS, 1R5, 1R 7, 1R4, 1R6 

,185, . ,184,186, 177,185,187, 184,186, 185,187.57, 129,130, 131, 132,133, 134 
, 136, 136,137, 13«, 139,140, 141, 14?, 143, 144, 145, 146,8,8,61 , 17, 165, 163, 164 
, 161 , 16?, 166, 17, 17, 17,60, 178 , 1?1 ,1?0, 119,117, 1?9, 130,131 , 13?, 65, 134, 135 
,136, 137,67,139,  140,  141 , 14?,  14  3,144, 145,  18  3,  146,1  3,67, 1?9, 130, 131 , 13? 

,  133, 134,135, 136, 137, 13R, 139. 140,141, l 4?, 143, 144, 14  5,146, 13, 6?,  6  3, 64 
, 13?, 65,66,  135, 136, 137,6  7,68,69,70, 14?,71  ,  1 44,  14  5,  183, 146,  13, 13,68, 18 
,181  ,18?, 151 ,194,7,108) ; 

DFCLARF  LnOK?(LSIZF)  H  1  T  (  B  )  INITIAL  (  0 , 1 , 9  1 , 9?  ,  93  ♦  9?  ,  ?  ,  94 , 3 , 95 , 9 , 96 , 1 0 
, 97, 97, 1?,1 73, 1?9, 169, 130, 17?, 13 l, 14, 133, 170, 134,16, 138,171,139,175,140 
,174,141, 176, 143,?0,?0,98,?1 , 157,??, ??,??,??, 148, 179, 148,?3,?4,?4,?4,?4 
,179, 165,155,?6,99,99,?7,?8, Ul,?9,l 16,3?, 1?6,33, l?8,34,153,42,100,44 
,101,46,102,47,103,48,118.49,180,53,104): 

DFCLARF  AFPLY?< ASIZF  )  B  I  T ( 8  )  INITIAL  ( 0, 0 , 7? ,  1 07 , 106 , 78 , 90 , 80 , 79 , 55 , 1  1 4 
, 11 3, 88, 87, 86, 38, 39, 40, 37, 85, 84, l??, 89, 1??,1??, 60, 51, 6?, 180, 19, 36, 30 
,123, 124,81,82,83,31 ,45, 74, 7 5, ?6,77,76, 150, 36, 168.73,160, 159,168, 167,41 
,54,43 ) I 

DFCLARF  INDFXHMAXS*  )  R  I  T  (  16)  INITIAL  (  0 , 1  ,  ?  .  ??  ,  4?  ,  60 , 78 , 96 , 1 1  5 . 1  34 , 1  43 
, 16?, 16Hf 1R7, 193, 194, 195, 196,21 5,?34, ?36,?37, ? 38, ?4?,?46,?50,?55,?59 
,? 78, 279, 280, 28 1, ?8  8 , ?89, ?90, ?9  1 ,29?, 29  3,294. ?95, 296,297,31 6, 3 17, 336 
,337,356,357,358,359,360,361,362,363,364,365,1,3,7,9,11.13,16,18,20,?? 
,2 4, ?6,?8,30,32 ,34, 36. 39, 41 ,47 ,49,54,57,60.6? ,64,66,68,70,72,74,76,78 
.80,82,110,127, 149, 149,152,154,156, 1 10, 11 2, 125, 1?5, 125, 125,116,1 ,?, 2, 3 
,5,5, 6,6,7, 7,9, 9, 10, 10, 10, 10, 10, 12, '3. 15, 15. 19,19,20, ? 1,2 1,2 1,21 ,21,21 
,21 ,21 ,2 1,2 1,2 1,21,2 1,21 ,21,21 ,21,2 1,?9,?9, 29, 30, 30, 30, 31, 31 ,32,32,33 
,33,34.34, 38, 38, 3R, 38, 3«, 38 ,39 ,39 ,44,4  4,44,44,44,44.44,44,46,48,48,50 
, 50. 50, 50, 52, 52, 52, 52, 53, 53, 5 3. 5 3, 5 3, 53, 54) : 

DFCLARF  I NDF  X? ( MAXS#  )  BIT(R)  INITIAL  (0,1,20,20,  18,18,18,19,19,9,19,6 
,19, 6, 1,1, 1,19, 19, l, 2,1, *.4, 4, 5, 4, 19, 1,1, 1,7, 1,1, 1,1, l, 1,1, 1,1, 19, 1,19 
,1.19, 1,1, 1,1, 1,1, 1,1, 1,1, ?, 4, ?,?,?, 3, 2, ?.?,?, 2, 2. 2, 2, 2,2, 3, 2, 6, 2, 5, 3, 3 
,2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1,2, 2, 3, 9, 10, l?,20,?7,4?f 44, 46, 47, 53, 1,0, 1,3,0 
,0,0, 0,0*2 ,1*0, 4, 0*3, 3*3*0, 6* 1,0, 2, 0,2, 0*0,0, 0*0,0, 0*0*0, 0*0 ,0*0, 0,0,0 
,0,0, 0,0, 0,0, 3, 0,0, 0,0, 0,0, 2, 0,2, 0,0, 0,0, 0,0, 0,2, 0,0, 0,0, 0,0, 0,0, 3, 1,0 
,0,3,3 ,0,0, 0,0, 0,0, 0,0, 0,0, 0,0) l 
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Append  lx  B 

INTERPRETER  INSTRUCTIONS  AND  REPERTOIRE 


INSTRUCTION  DESCRIPTIONS 


Literal  or  Identifier  Reference  (LD) 

A  LD,  which  points  to  either  an  entry  for  an  identifier  (variable) 
or  a  literal  in  the  Literal/ldentif ier  Table,  is  an  operand  in  the 
instruction  sequence.  The  instruction  decoder  pushes  a  LD,  unmodi¬ 
fied,  onto  the  stack. 

Integer  Constant  (IC) 

The  IC  operand  is  a  12-bit  2's  complement  constant  in  the  instruc¬ 
tion  sequence.  The  IC  is  included  for  efficient  handling  of  (absolute) 
numbers  without  the  indirect  addressing  associated  with  a  literal 
reference.  It  is  pushed  on  the  stack  unchanged. 

Address  Constant  (AD) 

The  AD  operand  is  a  12-bit  positive  integer  that  addresses  an 
instruction  in  the  instruction  sequence.  It  is  used  only  as  an  oper¬ 
and  of  a  branch  operator. 

Arbitrary  Replication  (ARB) 

The  ARB  operand,  which  indicates  an  indefinite  replication  fac¬ 
tor^  in  an  input  term,  is  a  constant  in  the  instruction  sequence. 

Null  Value  (NULL) 

The  NULL  operand  in  the  instruction  sequence  indicates  an  omitted 
field  in  a  term.  It  occurs  only  for  terms  that  collect  data  from  the 
input  stream  or  emit  data  in  the  output  stream. 


The  arbitrary  replication  is  denoted  by  the  pound  sign,  // ,  in 
the  DRS  syntax. 


Store  (STO) 


A  value  is  stored  in  the  Literal/Identifier  Table.  The  first  two 
stack  entries  describe  the  location  and  value,  respectively.  Both 
elements  are  removed  from  the  stack  upon  execution. 


Binary  Operators  (ADD,  SUB,  MUL,  DIV,  CON) 


The  binary  operators  compute  x  <op>  y,  delete  both  x  and  y  from 
the  stack, ^  and  push  the  result  back  onto  the  top  of  the  stack: 


Examp le :  x-y 


Stack  before  Stack  after 


Binary  operators  have  no  effect  on  the  Binary  Switch  register. 

All  operators  except  concatenate  (CON)  expect  x  and  y  to  describe  type 
B,  0,  X,  AD,  ED,  or  SB.  The  result  is  always  a  32-bit  type-B  element. 
The  concatenate  operator  expects  both  types  x  and  y  to  be  identical. 


Compare  (CEQ,  CNE,  CLE,  CLT,  CGE,  CGT) 


The  compare  operators  (e.g.,  .EQ.,  .LT. ,  etc.)  test  the  values 
described  by  the  first  two  stack  entries.  The  second  element  of  the 
stack  is  compared  to  the  first.  The  form  fails  for  Boolean  comparators 
where  types  differ.  For  CEQ  and  CNE,  the  data  must  have  identical  type 
and  length  attributes.  For  identical  types,  B,  0,  AD,  ED,  and  X  cause 


The  stack  may  actually  contain  instruction  operands  that  describe 
data  (rather  than  the  data  themselves).  For  convenience  of  illustra¬ 
tion,  the  data  rather  than  their  descriptors  are  shown  on  the  stack. 

For  detailed  formats  of  instructions  and  tables,  see  Sec.  IV  and 
Appendix  E. 

*B,  0,  X,  AD,  ED,  and  SB  represent  binary,  octal,  hexadecimal, 
ASCII  decimals,  EBCDIC  decimals,  and  signed  binary,  respectively. 
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binary  right-justified  comparison  operations.  Types  A  and  E^  cause 
left-justified  string  comparison  operations.  Prior  to  the  comparison, 
the  shorter  string  is  right-padded  with  blanks. 

Branch  (BT,  BF,  BU) 

The  branch  operators  check  the  Binary  Switch  register  and  either 
increment  the  Instruction  Counter  register  by  one  or  replace  it  by  the 
value  described  by  the  first  stack  operand.  The  top  stack  operand 
addresses  a  new  Instruction  Counter  value  in  the  instruction  sequence. 
The  top  stack  operand  i9  removed. 

Input  Call  (INS,  IND) 

The  input  call  operators  retrieve  data  from  the  input  stream. 

They  require  four  stack  operands  as  shown  below. 


binary  number  or  null 

LD  or  null 

binary  code  or  null 

binary  number,  arbitrary 
indicator,  or  null 

If  the  value-descriptor  parameter  is  null,  the  input  routine 
extracts  as  much  data  as  needed  from  the  input  stream  (of  the  required 
data  type)  to  satisfy  the  length-descriptor  and  replication-descriptor 
requirements.  If  the  value  descriptor  is  not  null,  the  input-stream 
data  is  compared  to  the  described  value.  The  Binary  Switch  is  set  to 
true  if  the  four  stack  operands  correctly  describe  the  input.  The 
stack  operands  are  deleted.  For  an  INS,  the  string  obtained  from  the 
input  is  described  by  the  top  operand  of  the  stack.  For  an  IND,  the 
stack  is  left  empty.  If  the  conditions  are  not  satisfied,  the  stack 
operands  are  deleted  and  the  Binary  Switch  is  set  to  false. 

and  E  represent  ASCII  and  EBCDIC,  respectively. 


length  descriptor 


value  descriptor 


date-type  descriptor 


replication  descriptor 
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Upon  successful  application  of  the  Input-call  operator,  the  Current 
Input  Pointer  register  is  advanced  over  the  data  extracted  from  the 
input  stream. 

Output  Call  (OUT) 

The  output-call  operator  emits  data  in  the  output  stream.  The 
four  stack  operands  are  the  same  as  those  described  for  the  input  call. 
The  value  is  converted  if  the  output  type  and  the  value  descriptor 
differ.  The  value  expression  is  transformed  to  the  desired  output  type 
and  fitted  in  the  field  specified  by  the  length  expression.  See  Ref.  6 
for  truncation  and  padding  rules.  The  Binary  Switch  is  unaffected. 

Move  Pointer  (SCRP,  SRCP) 

These  operators  replace  the  contents  of  the  Current  Input  Pointer 
by  the  contents  of  the  Rule  Input  Pointer  and  vice  versa.  There  are 
no  stack  operands. 

Return  Value  (RET) 

The  return-value  operator  returns,  to  the  originating  user,  the 
value  described  by  the  first  stack  operand. 

Look  Up  Label  (LUL) 

The  Label  Table  is  searched  for  the  entry  referenced  by  the  stack 
operand  (which  is  a  type-B  value).  If  located,  the  stack  entry  is 
replaced  by  the  relative  address  in  the  instruction  sequence  of  the 
label  (in  the  form  of  an  AD  operand);  if  the  label  is  not  found,  the 
rule  fails. 

Load  Identifier  Value,  Length,  Type,  Contents  (LIV,  LIL,  LIT,  LIC) 

The  top  stack  operand  is  a  LD  to  a  defined  identifier.  These 
operands  extract  the  indicated  attribute  (value,  length,  type,  con¬ 
tents)  of  the  identifier  and  replace  the  first  stack  operand  by  the 
extracted  value. 
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End  of  Term,  Rule  (EOT,  EOR) 

These  pseudo  operands  are  used  to  debug  real-time  data-reconfigur- 
ation  failures.  If  a  form  fails,  the  interpreter  scans  forward  in  the 
form's  instruction  sequence  and  reports  to  the  originating  user,  over 
the  control  connection,  the  rule  and  term  on  which  the  form  failed. 
These  operands  carry  a  sequence  number  so  that  the  failure  may  be 
coupled  to  the  particular  term  in  the  specific  rule  that  failed. 


INSTRUCTION  REPERTOIRE 
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we  use  |  to  indicate  the  top  of  stack.  Hence,  |A,B  -*•  jC  means  A  and  B  were  the  first  two  operands 
on  the  stack  prior  to  instruction  execution  and  C  was  first  on  the  stack  with  A  and  B  removed  after  the 
instruction  execution. 
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Appendix  C 

DRS  COMPILER  LISTINGS 
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DMPOOL:  PROCEDURE: 


/*  VARIABLE  CONTROLS  TRACING  OPTION, 
/* 


T R A C F  =  I  =  =  >  TRACF  */ 
TRACF=0  ==>  NO  TRACE  */ 


DCL  TRACF  BIN  FIXFO  (31)  STATIC  FXT  INITIAL  (0); 


/*  THESE  ARF  LALR  PARSING  TARI.FS 


#/ 


OCL  MAXR#  BIN  FIXFO  (15)  STATIC  FXT  INIT  (55): 

OCL  MAXL#  BIN  FIXFO  (15)  STATIC  FXT  INIT  (90): 

OCL  MAX P#  BIN  FIXFO  (15)  STATIC  FXT  INIT  (104); 

OCL  ST AR T_ST ATE  BIN  FIXFO  (15)  STATIC  FXT  INIT  (56); 

OCL  RFAOlT373)  BIN  FIXFO  (15)  STATIC  FXT  INIT 


00000010 

00000070 

00000030 

00000040 

00000050 

00000050 

00000070 

00000080 

00000090 

00000100 

00000110 

00000170 

00000130 

00000140 

00000150 

00000160 


(  35,10,11,17, 13, 14, 15, 16 ,17,1 8,1900000170 
,70,71 ,73, 74, 25, 26, 2 7,28, 3R ,40, 10, 11 , 17, 13, 14, 15, 16, 17, 1R, 19,20,21,73  00000 1R0 
♦24, 25, 76, 27, 28,38,40, 11, 17*13, 14,15, 16, 17, 18,19,20, 71, 73, 24, 25, 26, 27  00000190 
,28,40, 11 , 12, 13, 14, 15, 16, 17, 1R.  19, 20, 2 1,7 3, 24,25,26, 7 7, 7R, 40,  11,  12, 13  00000700 
,14, 15, 16, 17, 18, 19, 70, 21, 23, 24, 25, 76, 77, 28, 40, 11, 17, 13, 14, 15, 16, 17, 1R  00000710 
, 19,20,21 ,23, 24, 25, 26,27, 2R, 38,40, 1, 11 , 1 ?,] 3, 14, 1  1 7» 1R, 19,20,71 ,2300000770 
, 24, 25, 76f 27, 28, 40, 11  , 12, 13, 16, 18,2 1,23, 24, 26,1  1,12,  13, ,  ’5,16,17,18  00000730 
, 19,20,21,23,24,25,26,27,28,38,40,1 4, 17, l 9, 2 5,77, 2R, 1 1, 12, 13, 14, 15, 16  00000740 
,  17,18, 19, 20, 2 1,23, 24, 25, 26,2 7, 2R,3R, 40, 14, 17, 19,25,27,28, 1  ,  1,1  ,1  1,  1?  000007  50 
,13,14,15,16, 17, 18,19,20,21,73,24,75,76,27,28,38,40, 11, 12, 13, 14, 15, 16  00000760 
, 17,18,19,20,21 ,23,24,25,26,27,78,38,40,8,79,38,8,2,3,6,7,2,3,6,7,2,3,600000770 
,7,2,3,4,6,7,2,3,6,7,1,11,17,13,14,15,16, 17, 18,19,70.21,23,24,25,76,27  00000780 
,28,40,8,8,8,22,31,32,33,34,35,36,77,72,72,8,39,4,4,4,4,11, 12,13,14,15  00000790 
,16,17,18,19,20,21,23,24,25,76,27,28,38,40,9,1,11,12,13,14,15,16,17,18  00000300 
,19,20,21,23,24,25,76,27,28,40,9,11,12,13,14,15,16,17,18,19,20,21,23,7400000310 
,25,26,27,28,38,40,9,9,1,30,4,4,4,9,1,5):  00000370 
OCL  LOOK  1(83)  BIN  FIXFO  (15)  STATIC  FXT  INIT  00000330 

(38,0,4,8,9,0,8,0,8,0,8,0,4,9,0  00000340 
,39,0,39,0,39,0,1,0,39,0,1,0,39,0,39,0,39,0,39,0,29,38,0,8,0,2,3,6,7,8  00000360 
,0,8, 0,2, 3, 6, 7, 0,4, 9, 0,5,°, 0,8, 0,8, 0,22, 0,27, 0,72, 0,9, 0,9, 0,9, 0  9,0,  1,000000360 
,30,0,9,0):  00000370 
OCL  APPLY  1 ( 54 )  BIN  FIXED  (15)  STATIC  FXT  INIT  00000380 

(0,0,20,0,0,0,43,0,0,8,0,0,3,0  00000390 
,44, 46, 47, 0,0, 0,2 7, 2, 8, 4 3, 4, 5, 6, 0,0, 0,0, 0,0, 45, 18, 10,0,0,2,3,7, 12,0,9,000000400 
,11,0,17,0,41,0,0,0,0):  00000410 
OCL  R E AD2 ( 373 )  BIN  FIXFO  (15)  STATIC  FXT  INIT  00000470 

(109,147,62,63,64,132,65,66,135  0000C430 
, 136, 137, 67, 6R, 69, 70, 142,71. 144 f 145, 1R 3, 146, 147, 129, 130, 131, 132, 65 f 134  00000440 
,135,136,137,67,139,140,141,147,143.144,145, 183,146,129,130,131,137,13300000450 
, 134,135, 136, 137, 138, 139, 140, 141,147, 143, 144, 145, 146, 179, 130, 131 , 132  00000460 
,133,134,135,136,137,138,139,140,141,147,143,144,145,146,129,130,131  00000470 
,132,133, 134, 135, 136, 137, 138, 139,140, 14] , 142, 143, 144, 145, 146, 129, 130  00000480 
,131,132,65, 134,135,136, 137,67,139,140, 1*1 ,142, 143, 144,145, 183,146,57  00000490 
,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145  00000500 
,146,173,169,172,170,15,171,175,174,176,62,63,64,132,65,66,135,136,137  00000510 
,67,68,69, 70, 142,71, 144, 145,183, 146, 1R9, 188, 190, 197, 191 , 193,129,130,13100000520 
, 137,65, 134, 135, 136, 137,67,139, 140,141, 147,143, 144, 145, 183, 146,189, 188  00000530 
,190,192,191,193,4,6,5,62,63,64,137,65,66,135,136,137,67,68,69,70,147  00000540 
,71,144,145,183,146,62,63,64,132,65,66,135,136,137,67,68,69,70,142,71  00000550 
f  144, 145, 183, 146,59, i 05,  109, 1 1  ,  184, 18  6, 18  5,  187, 184, 18  6, 185, 187, 18  4,  186  00000560 
♦185,187,184,186,177,185,187,184,186, 185,187,57,129,130,131,132,133,13400000570 
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♦135,136,137,138,139,140,141,142,143,144,145,146,8,8,61,17,165,163,164  00000580 
,161,162,166,17,17,17,60,178,121,120,119,117, 129,130,131,132,65,134,13500000*90 
,136,137,67,139,140,141,142,143,144,145,183,146,13,57,129,130,131,132  00000600 
,133,134,135,136,137,138, 139,140,141,142,143,144,145,146,13,62,63,64  00000610 
,132,65,66,135,136,137,67,68,69,70,142,71,144,145,183,146,13,13,58,18  00000620 
,181,182,151,194,7,108):  00000630 
OCL  L0nK2 ( 83 )  BIN  FIXED  (15)  STATIC  FXT  INIT  00000640 

(1,91,92,93,92,2,94,3,95,9,96,10  00000650 
,97,97,12,173,129,169,130,172,131,14,133, 170,134,16,138,171,139,175,14000000660 
,  174,141, 176,143,20,20,98,21,157,22,22,22,22, 148,179,148,23,24,24,24,2400000670 
,179,155,155,26,99,99,27,28,111,29,115,32,126,33,128,34,153,42,100,44  00000680 
♦101,46,102,47,103,48,118,49,180,53,104) :  00000690 
DCL  APPL Y2 ( 54 )  BIN  FIXED  (15)  STATIC  EXT  INIT  00000700 

(0,72,107,106,78,90,80,79,55,11400000710 
,  113,8R, 87,86, 38, 39, 40, 37, 85, 84,  122, R9, 12 2,  122,50,51,52, 180, 19,35,30  00000720 
,  123,124,81,82,83,31,45,74,7  5,25,77,76,  150,36,158,73,160,159,168,167,4100000730 
*54,43):  00000740 

00000750 

/*  PUSH  STATES  ARE  BUILT-IN  TO  THF  INDEX  TARLFS  */  00000760 

00000770 

DCL  I NDFX 1 ( 194 )  BIN  FIXED  (15)  STATIC  EXT  INIT  00000780 

( 1,2,22,42,60,78,96,115,134,14300000790 
,162,168,187, 193, 194,195, 196 , 2 1 5 , 234, 235 , 237 , 238, 242 , 246 , 250 , 255 , 2 59  00000800 
,  278, 2 79, 280, 28 1,2R8, 289, 290, 291 ,292,293,2^4,295,296,297,316,317,336  00000810 
,337,356,357,358,359,360,361, 362,363,364,365, 1,3, 7, 9, 11, 13, 16, 18,20,22  00000820 
♦24,26,28,30,32,34,36,39,41,47,49,54,57,60,62,64,66,68,70,72,74,76,78  00000830 
, 80, R2, 110, 127, 149, 149, 152, 154, 156, 110, 11 2, 125, 125, 125, 125, 116, 1,2, 2, 3  00000840 
,5,5,6,6,7,7,9,9,10,10,10,10,10,12,13,15,15,19,19,20,21,21,21,21,21,21  00000850 
,21,21,21,21,21,21,21,21,21,21,21,21,29,29,29,30,30,30,31,31,32,32,33  00000860 
,33,34,34,38,38,38,38,38,38,39,39,44,44,44,44,44,44,44,44,46,48,48,50  00000870 
,50,50,50,52,52,52,52,53,53,53,53,53,53,54) ;  00000880 
DCL  I NDF X2 (194)  BIN  FIXED  (15)  STATIC  EXT  INIT  00000890 

(1,20,20* i '  *18,18,19,19,9,19,6  00000900 
♦19, 6, 1,1, 1,19, 19, 1,2, 1,4, 4, 4, 5, 4, 19, 1,1, 1,7,1. •♦1,1,1,1,1,1,1,19,1,19  00000910 
,1,19,1,1,1,1,1,1,1,1,1,1,2,4,2,2,2,3,2,2,2,2,2,2,2,2,2,2,3,2,6,2,5,3,300000920 
,2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,1 ,2,2,3,0.10,12,20,27,42,44,46,47,53,1,0,1,3,000000930 
,0,0, 0,0, 2, 1,0, 4, 0,3, 3, 3, 0,6, 1,0, 2, 0,2, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0  00000940 
,0,0, 0,0, 0,0, 3, 0,0, 0,0, 0,0, 2, 0,2 ,0,0, 0,0, 0,0, 0,2, 0,0, 0,0, 0,0, 0,0, 3, 1,0  00000950 
,0,3,3, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0):  00000960 

00000970 


DCL  TERMINAL#  BIN  FIXEO  (15)  STATIC  FXT  INIT  (40); 
OCL  VOCAB#  BIN  FIXFD  (15)  STATIC  EXT  INiT  (69): 

DCL  P#  BIN  FIXED  (15)  STATIC  EXT  INIT  (90): 

END  CDMPODL : 


00000980 

00000990 

00001000 

00001010 

00001020 
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PRSER:  PROCEDURE  (  PRM  )  DPT  I  (INS  (  MA I  N )  : 


/*  VARIABLES  HOLD  PARM  FROM  EXEC  CARO  */ 

DCL  PRM  CHAR  (100)  VAR: 

DCL  PARM  CHAR  (100)  VAR  EXT  STATIC: 


/*  TABLES  OUTPUT  FROM  PARSER  GENERATOR  */ 

DCL  MAXR*  BIN  FIXED  (IS)  STAi.C  CXT; 

DCL  AX..#  BIN  FIXED  (IS)  STATT  FXT : 

DCL  MAXP#  BIN  FIXED  (IS)  STAT  * EXT: 

DCL  ST ART_ST ATE  BIN  FIXED  (IS)  STATIC  EXT: 
DCL  READK373)  BIN  FIXED  (IS)  STATIC  FXT: 
DCL  LOOK  1(83)  BIN  FIXED  (15)  STATIC  EXT: 
DCL  APPLYK54)  BIN  FIXED  (IS)  STATIC  FXT: 
DCL  RE AD2 ( 373  )  BIN  FIXED  (15)  STATIC  EXT: 
DCL  L00K2 ( B3 )  BIN  FIXED  (IS)  STATIC  FXT; 
DCL  APPLY2(54)  BIN  FIXED  (15)  STATIC  EXT: 
DCL  INDEX1 ( 194)  BIN  FIXED  (IS)  STATIC  EXT: 

DCL  INDEX2 ( 194 )  BIN  FIXED  (IS)  STATIC  FXT: 


/*  ROUTINES  INVOKED  BY  PRSFR  */ 

DCL  DISPLAY  ENTRY  (CHAR  (72)  VAR): 

DCL  LXANLZ  ENTRY  R  FT UR  NS ( BIN  FIXED  (15)): 

DCL  SMNTC  ENTRY  (BIN  FIXED)  RETURNS  (RIN  EIXFD  (IS)); 
DCL  SMEOIO  ENTRY  ((2)  BIN  FIXED  (31),  BIN  FIXED  (31), 
(2)  BIN  FIXED  (31)  )  : 

DCL  SMFCIO  ENTR f  ((2)  BIN  FIXED  (31)): 

DCL  SMFLIO  ENTRY  : 


/*  TABLES  FOR  SMFS  */ 

DCL  CMPLTM2)  BIN  FIXED  (31)  ALIGNED  STATIC  EXT  INITIAL  (1*1); 

DCL  CMPLT1(2)  BIN  FIXED  (31)  ALIGNFD  ST  AT IC  EXT  . N I T I A  L  '2,2): 

DCL  CMPLT3 ( 2 )  BIN  FIXED  (31)  ALIGNED  STATIC  EXT  INITIAL  (3,3); 

DCL  CMPI.TM2)  BIN  FIXED  (31)  ALIGNFD  STATIC  EXT  INITIAL  (4,4): 

DCL  LC.SKT1  BIN  FIXED  (31)  ALIGNFD  STATIC  INITIAL  ( 409ft )  ; 

DCL  LCLSKT2  BIN  FIXED  (31)  ALIGNED  STATIC  INITIAL  (4102): 

DCL  LCLSKT3  BIN  FIXED  (31)  ALIGNED  STATIC  INITIAL  (4106); 

DCL  LCLSKT4  BIN  FIXED  (31)  ALIGNED  STATIC  INITIAL  (4110); 

DCL  WRKSPSK2)  BIN  FIXED  (31)  ALIGNED  STATIC  EXT  INITIAL  ((2)0)  : 

DCL  WRKSPS2 ( 2 )  BIN  FIXED  (31)  ALIGNFD  STATIC  FXT  INITIAL  ((2)0)* 

DCL  WRKSPS3 ( 2 )  BIN  FIXED  (31)  ALIGNED  STATIC  EXT  INITIAL  ((2)0): 

DCL  WRKSPS4 ( 2 )  BIN  FIXED  (31)  ALIGNFD  STATIC  EXT  INITIAL  ((2)0); 

DCL  1  CRftDIAG  STATIC  IINALIGNFD  FXT, 

2  OPCD  BIT  (ft)  INITIAL  (  '00000010  1  B  ) , 

2  FLGS  BIT  (16)  INITIAL  (• 000000000 l 000000 • B ) , 

2  NLNG  BIT  (ft)  INITIAL  ( *  00 1 00 1 00  •  B  )  , 


00000010 

00000020 

00000030 

00000040 

ooooooso 
00000060 
00000070 
OOOOOOftO 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
OOOOOISO 
00000160 
00000170 
OOOOOlftO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
000002SO 
00000260 
00000270 
000002ft0 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
000003SO 
00000360 
00000370 
000003ft  0 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
000004ft0 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
0000055P 
00000560 
00000570 


2  FNAM  CHAR  (36)  INITIAL  ('•), 

2  FLNG  BIN  FIXFn  (31)  INITIAL  (8R000); 

nCL  1  CR80RJI  STATIC  UNALIGNFD  FXT, 

2  DPCO  BIT  (8)  INITIAL  (• OOOOOO 1 0  '  B  )  , 

2  FLOS  RIT  (16)  INITIAL  (0), 

2  NLNG  BIT  (8)  INITIAL  ( ' 00 1 00 1 00 • B ) , 

2  FNAM  CHAR  (36)  INITIAL  ("), 

2  FLNG  RIN  FIXFO  (31)  INITIAL  (3300); 

OCL  1  CR80BJT  STATIC  UNALIGNFD  FXT, 

2  OPCO  BIT  (8)  INITIAL  (• 0000001 0 • B ) , 

2  FLOS  PIT  (16)  INITIAL  (0) * 

2  NLNG  BIT  (8)  INITIAL  ( ' 00 1 00 100 ' B ) , 

2  FNAM  CHAR  (36)  INITIAL  (  "  ), 

2  FLNG  BIN  FIXED  (31)  INITIAL  (48000): 

OCL  1  RDSRCF  STATIC  UNALIGNFD  FXT, 

2  DPCD  BIT  (8)  INITIAL  (' 000001 0 1 • B ) , 

2  FLGS  BIT  (16)  INITIAL  (0), 

2  NLNG  BIT  (8)  INITIAL  ( • 00 100 1 00 ' B ) , 

2  FNAM  CHAR  (36)  INITIAL  (  •  •  )  , 

2  DLNG  BIN  FIXED  (31)  INITIAL  (0); 

OCL  1  WRTDBJT1  STATIC  FXT* 

2  DPCD  BIT  (8)  UNALIGNFD  INITIAL  (' 0000001 1 • R ) * 

2  FLGS  BIT  (16)  UNALIGNFD  INITIAL  (0), 

2  NLNG  RiT  (8)  UNALIGNFD  INITIAL  ( '00100100' B ) , 

2  FNAM  CHAR  (36)  UNALIGNFD  INITIAL  ('')* 

2  DLNG  BIN  FIXFD  (31)  ALIGNED  INITIAL  (0), 

2  RYTLLRT  BIN  FIXED  (15)  ALIGNED  INITIAL  (0)* 

2  L BTN3 ( 0 : 199)  , 

3  LRLVLU  RIN  (15)  FIXFD  ALIGNFD  INITIAL  ((200)0), 

3  LBLOFST  BIN  (15)  FIXED  ALIGNFD  INITIAL  ((200)0); 

OCL  1  WRTDBJI  STATIC  FXT, 

2  DPCD  BIT  (8)  UNALIGNFD  INITIAL  (' OOOOOO 1 1 ' H ) , 

2  FLGS  BIT  (16)  UNALIGNFD  INITIAL  (0), 

2  NLNG  BIT  (8)  UNALIGNFD  INITIAL  ( ' 00 1 00 1 00 ' B ) , 

2  FNAM  CHAR  (36)  UNALIGNFD  INITIAL  ('•), 

2  DLNG  BIN  IXFO  (31)  ALIGNFD  INITIAL  (0), 

2  BYTLCDT  BIN  FIXFD  (15)  ALIGNFD  INITIAL  (0)* 

2  CDDF ( 0: 1999 )  BIN  FIXFD  (15)  ALIGNFD  INITIAL  ((2000)0): 

OCL  1  DLTFILF  STATIC  UNALIGNFD  FXT, 

2  DPCD  BIT  (8)  INITIAL  (' 00000 1 1 1 ' B ) , 

2  FLGS  BIT  (16)  INITIAL  (0)  , 

2  NLNG  RIT  (8)  INITIAL  (' 00 100100 ' B ) , 

2  FNAM  CHAR  (36)  INITIAL  (''), 

2  FLNG  BIT  (32)  INITIAL  (0)  : 


/*  SHARED  VARIABLES  */ 

OCL  STACKSI7  BIN  FIXED  STATIC  FXT  INITIAL  (40): 


00000580 

00000590 

00000600 

00000610 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

000006R0 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000R10 

OOOOOR20 

00000830 

00000840 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001060 

00001060 

00001070 

00001080 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 
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Hf.L  STATF_STACK(40)  BIN  FIXED  (IS)  STATIC  INITIAL  ((40)0): 
DC l  BCDVLU  CHAR (256)  VAR  FXT  STATIC  INITIAL  (  • • ) : 

IT  C  L  SYMBOL  (0:1)  CHAR  (266  )  VAR  STATIC  FXT  INIT  ((?)*•): 

DCL  (IC,ICO)  BIN  FIXFD  STATIC  FXT: 

DCL  TRACF  BIN  FIXED  (31)  STATIC  FXT: 


/*  LOCAL  VARIABLFS  */ 

DCL  STATE  BIN  STATIC  FIXED  INITIAL(O); 
DCL  RF ADI T  BIN  STATIC  FIXFD  INITIAL(l): 
DCL  SP  BIN  STATIC  FIXFD  INITIAL  (0); 

DCL  MP  BIN  STATIC  FIXED: 

DCL  TOKEN  BIN  STATIC  FIXED: 

DCL  (  I  ♦  J)  BIN  FIXED  STATIC; 

DCL  ERROR  BIN  FIXFO  STATIC  INITIAL  (0): 


/*  INITIALIZE  AT  THIS  POINT*/ 

/*  MAKE  PARM  FROM  FXFC  CAR'  AVAILABLE  TO  ALL  ROUTINES  */ 
PARM  =  PRM; 

/*  INITIAL  I ZF  FILES  */ 

RDSRCF.FNAM  =  *DRS  SRCF  •  |  | P A R M : 

CR8DIAG.FNAM  =  1 ORS  DIAG  »||PARM; 

CR80BJI.FNAM  =  • DR  S  OBJI  •  |  (PARM; 

CR8DBJT.FNAM  =  1  DR S  OB J i  'IIPARM; 

CALL  SMF0I0ICMPLT1 ,LCLSKT1 fWRKSPSl  )  : 

IF  CMPLT  1  (  1 )  J-CMPLT 1  (  2  )  -=  0  THFN  GO  TO  ABORT: 

CALL  SMFOIO(CMPLT?,LCLSKT2,WRKSPS2)  : 

CALL  SMFCIO(CMPLT3,LCLSKT3,WRKSPS3)  : 

CALL  SMF0I0(CMPLT4fLCLSKT4fWRKSPS4)  : 

DLTFILF.FNAM  =  CR8DI AG.FNAM; 

CALL  SMFLI0(CMPLT2tDLTFILF): 

DL  TF I LF • FNAM  =  CRROBJI .FNAM: 

CALL  SMFLI0(CMPLT3,DLTFILF  )  : 

DLTFILF.FNAM  =  CR ROB JT. FNAM : 

CALL  SMFLI0(CMPLr4fDLTFlLF)  : 

CALL  SMFLI0(CMPLT1 ,RDSRCF ) : 

CALL  SMFLI0(CMPLT2tCR8DIAG) : 

CALL  SMFL 1 0 ( CMPLT3 » CR80B J I  ): 

CALL  SMFLI0(CMPLT4,CR80BJT )  : 

WR  TOBJ I • FNAM  =  CR 80R J I . FNAM : 

WRT0BJT1 .FNAM  =  CR ROB JT  .  FNAM  : 


/*  START  COMPILE  LOOP  */ 

RFADIT  =  . 

RESTART  : 

SP  =  0: 

STATF  =  START_STATF: 

COMP: 

DO  WHRF  (  •  )  *B)  : 


0000] ISO 
00001160 
00001170 
00001180 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
000012S0 
00001260 
00001270 
00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001360 
00001360 
00001370 
00001380 
00001390 
00001400 
00001410 
00001420 
001.0143C 
000CJ440 
000014S0 
00001460 
00001470 
000014R0 
00001490 
00001S00 
0000  IS  10 
00001S20 
00001530 
00001S40 
ooooisso 

00001S60 
00001 S  70 
00001S80 
00001S90 
00001600 
00001610 
00001620 
00001630 
00001640 
0000 1660 
00001660 
00001670 
00001680 
00001690 
00001700 
00001710 


-62- 


1F  STATF  <=  MAXR *  THEN 

on; 

sp  =  SP+i: 

IF  SP  >=  STACKS  1 Z  THFN  CD  TO  FNDIT: 

STATF  STACMSP)  =  STATF: 

1  =  INDEX1 (STATF ) : 

IF  READIT  =  1  THEN 

on; 

SYMBOL (0)  =  SYMBOL (1)  ; 

TOKEN  =  LXANLZ; 

SYMBOL(l)  =  BCOVLU: 

RFA01T  =  0: 

IF  TOKEN  <  0  THEN  GO  TO  LXLAERR : 

END; 

DO  I  =  I  TO  I+INDFX2!STATE)-1; 

I F  REA01 ( I )  *  TOKEN  THEN 
DO; 

STATE  =  READ2! I  ) ; 

SYMBOL (0)  =  SYMBOL (1): 

RFAOIT  =  1; 

GO  TO  COMP; 

END; 

END; 

LXLAERR  : 

CALI  DISPLAY! 

ERROR  IN  TEXT  BEGINNING  •••II BCOVLU |  I  ' *  *  ,  **’); 

SMNTCERR : 

CALL  DISPLAY! 

•**  THF  RULE  CONTAINING  THE  FRROR  IS  IGNORFO  ** • ) ; 
ERROR  =  l; 

ICO  =  ICS 

SKIP: 

RFAOIT  =  l; 

SK I PMORF : 

IF  TOKEN  <=  0  I  TOKFN  =  29  THEN  GO  TCi  CLOSEOUT; 
SYMBOL ( 1 )  =  BCOVLU; 

IF  READIT  =  0  THEN  GO  TO  RESTART; 

IF  TOKEN  =  5  THEN  READIT  =  0: 

TOKEN  =  LXANLZ; 

GO  TO  SKIPMORE; 

END; 

EL  SF 

/*TFST  FOR  APPLY  STATF*/ 

IF  STATE  >  MAXP#  THEN 

on; 

MP  =  SP-IN0FX2! STATF  )  : 

BCOVLU  =  SYMBOLIC); 

IF  SMNTC! STATF-MAXP#)  <  0  THEN  GO  TO  SMNTCFRR ; 

SP  =  MP; 

I  =  INOFXKSTATE)  : 

J  =  STATF_STACK(SP)  : 

DO  WHILF  (  APPLYI  (  I  )  -,=  0)  ; 

IF  J  =  APPLYI (I)  THEN  GO  TO  TOP_MATCH; 

I  =  I  +  l; 

END; 

TOP_MATCH: 

IF  APPLY?!  I)  =  0  THFN  GO  TO  CLOSFOtlT: 


00001720 
0000)730 
00001740 
00001750 
00001760 
00001770 
000017B0 
00001790 
00001B00 
00001B10 
00001R20 
00001R30 
00001R40 
00001R50 
00001R60 
00001R70 
00001R80 
00001R90 
00001900 
00001910 
00001920 
00001930 
00001940 
00001950 
00001960 
00001970 
000019R0 
00001990 
00002000 
00002010 
00002020 
00002030 
00002040 
00002050 
00002060 
00002070 
000020R0 
00002090 
00002100 
00002110 
00002120 
00002130 
00002140 
00002150 
00002160 
00002170 
00002 l RO 
00002190 
00002200 
00002210 
00002220 
00002230 
00002240 
00002250 
00002260 
00002270 
000022RQ 
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STATE  =  A  P  P  L  Y  2  ( I  ) : 

END: 

Fl.SF 

/♦TEST  FOR  LOOK  STATE*/ 

IF  STATE  <*  MAXI#  THEN 
on; 

I  -*  INDEXl(STATF)  ; 

IF  REAOIT  =  1  THEN 

oo: 

SYMBOL  ( 0  )  =  SYMBOL(l): 

TOKEN  =  LXANL7. ; 

SYMBOL ( 1  I  =  bcovlo: 

RFAOIT  =  o: 

IF  TOKEN  <  0  THEN  00  TO  LXLAFRR; 

ENO; 

00  WHILE  (L00K1U  )  -=  0)  : 

IF  LOOK  1(1)  =  TOKFN  THEN  00  TO  LOOK: 
I  =  I+l : 

ENO; 

LOOK: 

STATE  =  LOOK? (I)  5 
ENO: 

ELSE 

/♦MUST  BE  PUSH  STATE*/ 

00; 

SP  =  SP+1 ; 

IF  SP  >=  STACKSIZ  THEN  00  TO  ENOIT: 
S1aTE_ST  ACK ( SP  )  =  I  .MDEX2  (  STATE  )  : 
STATE  =  INDEXl(STATF): 

ENO; 

END: 


00002290 

00002300 

00002310 

00002320 

00002330 

00002340 

00002360 

00002360 

00002370 

000023R0 

00002390 

00002400 

00002410 

00002420 

00002430 

00002440 

00002460 

00002460 

00002470 

00002480 

00002490 

00002600 

00002610 

00002620 

00002630 

00002640 

00002660 

00002660 

00002670 

00002680 

00002690 

00002600 


00002610 

/*  CLOSE  OUT  COMPILER  */  00002620 

00002630 

ENOIT:  00002640 

CALL  OISPLAYI  ■ STATE  STACK  OVERFLOW.  MAX  I S 1  I  I  ST ACKS I l ) J  00002660 

CLOSEOUT:  00002660 

CALL  DISPLAY!  'COMPILATION  TERM  I NATFO • ) :  00002670 

IF  ERROR  0  THEN  00002680 

no;  00002690 

CALL  OISPLAY(  00002700 

•THE  INSTRUCTION,  LABEL,  AND  I  DENT  I r I FR /L I  TER AL  TABLES  WILL  NOT •): 000027 1 0 
CALL  DISPLAY (  00002720 

•BE  WRITTEN  BECAUSE  OF  THE  PREVIOUSLY  NOTED  ERRORS.');  00002730 

DLTFILE.FNAM  a  CR BOR J I . ENAM ;  00002740 

CALL  SMFLI0(CMPLT3,DLTFILE)  ;  00002760 

DLTFILE.FNAM  =  CR809JT . FNAM;  00002760 

CALL  SMFLI0(CMPLT4,nLTEILF ) :  00002770 

END:  00002780 

FLSF  00002790 

DO;  00002800 

CALL  SMFCI0(CMPLT3) :  00002810 

CALL  SMFCI0ICMPLT4) ;  000028/0 

END:  00002830 

CALL  SMFCI0(CMPLT2) :  00002840 

RETURN;  00002860 
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AROR  T  : 

CALL  HI  SPLAY ( 1  MCI  INPUT  AVA1LARLF.  CAN11!  COMPILF')? 
END  PRSFR: 


00002860 

00002870 

00002RR0 
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LX ANL?  :  PROCFOUR  F  RETURNS {  BINARY  FIXFO  (IS)): 


noooooio 


( •  ( 

u 


F.'  ): 


/*  SHARFD  VARIABLFS  */ 


00000070 

00000030 

00000040 


OCL  INPUT  CHAR  (84)  VAR  ALIGNED  STATIC  F  XT ; 

OCL  TRACE  BIN  FIXFO  (31)  STATIC  FX  T  : 

OCL  TERMINAL#  BIN  FIXFO  (IS)  STATIC  FXT : 

OCL  BCOVLU  CHAR(256)  VAR  STATIC  FXT  INITIAL  (•*): 
OCL  LINFS7  BIN  FIXFO  (IS)  STATIC  FXT: 

OCL  LINF  CHAR  (337)  VAR  A  L  I  G  N  F  0  STATIC  FXT; 


/*  ROUTINES  INVOKED  BY  LXAML7  */ 

OCL  DISPLAY  r  TRY  (CHAR  (72)  VAR): 

OCL  REAP  ENTRY  RETURNS ( R I N  FIXFO  (IS)): 

OCL  INOX  ENTRY  (CHAR(2S6)  VAR)  R  F TURNS ( BIN  FIXFO  (IS)): 
OCL  VRFY  ENTRY  (CHAR(756)  VAR)  R FTURNS ( B I N  FIXFO  (IS)): 


/*  LOCAL  VARIABLFS  */ 

OCL  CHRTP  CHAR  (SO)  STATIC 

INITIAL  (  •  («►*  ):-/,:#".  I  ARCOFFGH  I  JKLMNDPOR  STIIVWXY701 234  56789  •  )  : 

OCL  NOX ( 5 )  BIN  F i X F D  STA  IC  INITIAL 

(1,85,113,117,145): 

OCL  LNGTH  BIN  FIXFO  (IS)  STATIC  INITIAL  (0): 

OCL  VOCAR  CHAR  (144)  STATIC  ALIGNED  EXT  INITIAL 
+  *)  :-/,  :«ABFFLOS 

V  X  I  I  AO  FO  FR  SB  SR  UR  _!_  . <  = . . FQ. • GF . . GT . . LF . . L T 

OFCLARE  RFSULT  BIN  FIXFO  STATIC  : 

OFCLARF  ( TFMP1  ,TFMP2 )  BIN  FIXFO  STATIC  : 

OCL  BCMOLMTR  CHAR(2)  STATIC  IMIT  (•/<'•): 

OCL  ECMDLMTR  CHAR(2)  STATIC  INIT  (•*/•): 

OCL  LTDLMTR  CHAR(l)  STATIC  INIT  ("••): 

OCL  BLNK84  CHAR  (84)  STATIC  INITIAL  (  •  *  )  5 


/*  REGIN  LEXICAL  ANALYSIS  */ 


OOOOOOSO 
00000060 
00000070 
00000080 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
000001S0 
00000160 
00000170 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
000002  SO 
00000260 
00000770 
00000780 
T  00000790 
.  .M00000300  ( 
00000310 
00000370  ‘ 
00000330 
00000340 
00000360 
00000360 
00000370 
00000380 
00000390 
00000400 


RESTART: 

TfHPI  =  VR F Y (  •  •  )  : 

IF  TEMPI  =  0  THEN  GO  TO  EOF: 

RFSULT  =  INOEX( CHRTP, SURSTR( INPUT,  1,1) )  : 

IF  RESULT  =0  THEN  GO  TO  RESTART: 

IF  RESULT < 1 S  THEN  GO  TO  LITRL: 

IF  R  ESULT  <  =  40  THEN  TFMP1  =  1S: 

ELSE  TEMPI  =  41; 

TEMP2  =  VR FY ( SURSTR ( CHRTP , TEMPI  )  )  ; 

R  FSULT  =  3R : 

IF  TFMP1 =41  THEN  SO  TO  FORM; 

RFSULT=40: 

IF  LNGTH>2  THEN  GO  TO  FORM; 

TFMP2  =*  NOX  (  LNGTH  )  ; 

TFMP 1  =  I NOFX( SURSTR ( VOCAR, TEMP  2 » MUX ( LNGTH+1 )-TFHP7) , BCOVLU) : 
IF  TEMPI  -.=  0  THEN  RFSULT  =  (  TFMP)  +  TFMP2  +  2)  /4: 


00000410 

00000470 

00000430 

00000440 

000004S0 

00000460 

00000470 

00000480 

00000490 

OOOOOSOO 

ooooosio 

00000S70 
00000  S  30 
00000S40 

ooooosso 

00000S60 

00000670 
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GO  TO  FORM: 

LITRL  : 

IF  RESULT  =  12  THFN  GO  TO  LTSTR : 

IF  SUBSTR!  INPUT,  1,2)  =  BCMOLMTR  THEN  GO  TO  COMMENT; 
LNGTH  =  1 ; 

IF  RESULT  =  13  THEN  LNGTH  =  4: 

IF  RESULT  =  14  THEN  LNGTH  =  2: 

TFMP2  -  NOX( LNGTH) ; 

TEMPI  =  INDEX(SURSTR(VOCAB,TEMP2,NDX(LNGTH+l)-TFMP?), 
SUBSTR ( INPUT, 1 , LNGTH)  )  ; 

IF  TEMPI  0  THEN  RESULT  =  ( TEMP 1+T FMP2+2 ) /4 ; 

ELSF 

DO; 

RESULT  =  -1; 

LNGTH  =  l: 

END; 

TEMPI  =  INDX(SUBSTR( INPUT, 1, LNGTH)  )  ; 

FORM: 

LINE  =  LINE  I IBCOVLU: 

GO  TO  COVER: 

COMMENT: 

RFSULT  =  -1: 

INPUT  =  SUBSTR ( INPUT, 3) : 

TEMPI  =  INDX( FCMDLMTR  )  : 

LINF  =  LINE  I  IRCMDLMTRI  IRCDVLU: 

IF  TEMPI  =  0  THEN  GO  TO  COVFR  : 

RFSULT  =  100; 

GO  TO  COVER; 

LTSTR  : 

RFSULT  =  -1; 

INPUT  =  SUBSTR ( INPUT,?)  : 

TFMP1  =  INDXILTDLMTR ) : 

LINE  =  LINF I  ILTOLMTR I  I RCOVLU; 

IF  TEMPI  =  0  THEN  GO  TO  COVFR: 

RESULT  =39 : 

BCD VLU  =  SUBSTR (RCDVLU, 1 ,LNGTH-1 ) : 

COVFR  : 

LINE  =  L INF  I  |  '  •  : 

IF  L  ENGTH ( LINE)  >  L I  NFS 7  THFN 
DO: 

CALL  D I  SPLAY (SUBSTR! LI NF,1 ,LINFSZ  )  )  : 

LINE  =  SUBSTR(LINE,LINFSZ+1 )  : 

GO  TO  COVFR: 

end: 

IF  RFSULT  =  100  THEN  GO  TO  RFSTART: 

IF  RESULT  =  5  I  RESULT  =  ?9  THFN 
DO: 

CALL  DI SPLAY (LINF): 

LINE  =  "  ; 

END: 

RETURN (RFSULT  )  : 

EOF: 

RESULT  =  29: 

8CDVLU  =  '  •  : 

LINF  =  LINFII'/*  FND  OF  FORM  */ •  : 

GO  TO  COVFR; 


000005R0 
00000S90 
00000600 
10000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
000006B0 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
000007R0 
00000790 
OOOOOROO 
OOOOOR 10 
00000R20 
00000R30 
OOOOOR40 
O0000R50 
00000R60 
OOOOOR70 
OOOOORRO 
00000R90 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
000009R0 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
0000 1 ORO 
00001090 
00001100 
00001 lIO 
00001120 
00001130 
00001140 
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VRFY : 


INOX: 

SCAN: 

MORE: 


PROCEDURE ( TF  XT )  RFTURNS ( HI N  F I  X  FD  (IS)); 

DCL  TEXT  CHAR  (256)  VAR; 

DCL  (TEMPI, TEMP2,TEMP3)  BIN  FIXFO  (IS)  STATIC: 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


GIVE  A  TARGET 
ON  RETURN 


STRING  TO  SEARCH  FOk  OR  VERIFY  */ 

INPUT  CONTAINS  THE  STRING  THAT  FOLLOWS  THE  */ 
TARGET — INCLUOING  1 HF  TARGET  (OR  STRING  NOT  IN  */ 
THE  VERIFY  LIST,  RCDVLU  CONTAINS  THE  SCANNFO  */ 
STR I NG--NOT  INCLUDING  THE  NON-VFR I F I FO  */ 

SYMBOL.  THE  FUNCTION  VALUE  WILL  BF  ZERO  IF  THE  */ 
INPUT  RAN  OUT  OR  THF  POSITION  OF  THE  TARGET  OR  */ 
NON-VER I F I FD  STRING,  l,  IF  IT  DID  NOT.  */ 

FUNCTION  VALUE  WILL  BF.  ZFRO  IF  THF  INPUT  RAN  OUT  * 
OR  THF  POSITION  OF  THE  TARGFT  OR  NON-VER I F I FD  */ 
STRING.  */ 


TEMP3  =  1; 

GO  TO  SCAN? 

ENTRY ( TEXT )  RETURNS ( B I N  FIXFO  (15)): 
TFMP3  =  2; 


BCOVLU 


1 


0 


THEN  TEMP2  *  VERI FY( INPUT ,TFXT) 
I  NOE  X ( INPUT, TFXT) : 

THEN 


THFN 

THEN 


TEMP2  *  TEMP2+LFNGTH( TFXT ) 


IF  TEMP3  = 

ELSE  TEMP2 
IF  TEMP2  = 

00: 

BCDVLU  =  BCOVLUl  1  INPUT: 

INPUT  =  BLNK84; 

IF  READ  -=  0  THEN  GO  TO  MORF: 

END: 

ELSF 
DO; 

IF  TEMP3 
IF  TEMP2 
DO; 

BCDVLU  *  BCOVLUl I SUBSTR( INPUT, l, TFMP2-1 ) 
INPUT  =  SUBSTR( INPUT, TEMP2) : 

TEMP2  =  1; 

END; 

END: 

LNGTH  =  LENGTH ( BCDVLU ) : 

RETURN! TFMP2 ) : 

END  VRFY; 

END  LXANLZ: 


OOOOi ISO 
000011S0 
00001170 
OOOOUBO 
00001190 
00001200 
00001210 
•.'0001220 
00001230 
00001240 
00001250 
0000 1260 
00001270 
/00001280 
00001290 
00001300 
C0001310 
00001320 
00001330 
00001340 
OCOO 1350 
00001 360 
00001370 
00001380 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
OOOOI 4R0 
00001490 
0000 1500 
00001510 
00001520 
00001530 
00001540 
00001550 
0000 1 1>60 
00001570 
00001580 
00001590 
00001600 
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SMNTC 


nCL  CdMPNT 


ocl 

nCL 

nCL 

nci 

OCL 

ncL 

OCL 

DCL 

ncL 


LBLFLtt 


MX  INSTS 

MXLRLS 

MXNDXS 

mxids 

MXL  ITS 


(COMP 

NT)  RETURNS 

(RIM  F 

I  XFD 

(  IS) 

) ; 

RIN 

FIXED  ( 

IS) 

; 

ERS  EDR  TARL 

F  SI 

7  F  S  */ 

;  BIN 

FIXED  ( 

IS) 

STATIC 

FXT 

t  N  I  T 

(0) : 

IG  BIN 

FIXFD 

(IS) 

STATIC 

FXT 

INIT 

(  9999 

H  BIN 

FIXED 

(  IS) 

STATIC 

FXT 

I  N I  T 

(4)  : 

7  BIN 

FIXFD 

(IS) 

STATIC 

EXT  INI 

T  (IS) 

S  BIN 

FIXED 

(  IS) 

STATIC- 

F>'T 

INIT 

(  2000 

i  BIN 

FIXED  ( 

IS  ) 

STATIC 

FXT 

INIT 

(200); 

i  BIN 

FIXED  ( 

IS) 

STATIC 

E 

INIT 

(  256  ) : 

RIN  F 

IXED  (1 

S)  STATIC  F 

XT  I 

NIT  ( 

512); 

■  BIN 

FIXED  ( 

IS) 

STATIC 

FXT 

INIT 

(2000) 

/*  SHARED  VARIABLES  */ 


DCL 

TRACE  R 

IN  FIXFD 

(31) 

STATIC  FX 

T  : 

OCL 

terminal#  bin 

FI 

XFD 

(IS) 

STATI 

C  F 

XT ; 

DCL 

vdcar# 

BIN  FI! 

XFD 

(15 

)  STATIC  F 

XT  ; 

DCL 

P#  BIN 

FIXFD 

(  IS 

)  ST 

ATIC 

EXT  ; 

DCL 

ICO  RIN 

FIXFD 

ST 

ATIC 

FXT 

I  N I  T  I 

AL 

(-1  ) 

DCL 

IC  RIN 

FIXED 

STATIC 

FXT 

INTTI 

AL 

(-1  ) 

OCL  NMLRS  RIM  F I XFD  STATIC  FXT  INITIAL  (-1): 

DCL  NMinS  BIN  F I X  F  D  STATIC  FXT  INITIAL  (-1): 

OCL  LTFNf)  BIN  F  I  XFD  STATIC  FXT  INITIAL  C  0 )  5 

OCL  NMNOXS  BIN  FIXED  STATIC  FXT  INITIAL  (-1): 
OCL  BCOVLO  CHAR (256)  VAR  FXT: 


/*  ROUTINES  INVOKED  BY  SMMTC  */ 

DCL  SPOCOOE  ENTRY: 

OCL  SMFLIO  ENTRY: 

OCL  SMFSIO  ENTRY: 

OCL  OISPLAY  ENTRY  (CHAR(72)  VAR): 

OCL  FINOLT  ENTRY  (CHAR(256)  VAR,  BIN  FIXED  (IS)) 
R FTURNS ( B I N  FIXED  (IS)): 


OOOOOOIO 
00000020 
00000030 
00000040 
OOOOOOSO 
00000060 
00000070 
OOOOOORO 
00000090 
00000100 
00000110 
00000120 
00000)30 
00000140 
000001S0 
00000160 
00000170 
00000 1 RO 
00000190 
00000200 
00000?10 
00000220 
00000230 
000002^0 
OOOOOPSO 
00000260 
00000270 
000002RO 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
000003S0 
00000360 
00000370 
000003RO 
00000390 
00000400 


DCL  FINDIO  ENTRY  (CHAR(4)  VAR)  RFTURNSt'RIN  FIXED  (IS)): 

DCL  FINDLR  ENTRY  (BIN  FIXED  (IS))  RFT1)RNS(BIN  FIXED  (IS)): 
OCL  GNRTR  FNTRV  (BIN  FIXED  (IS))  R  FTURNS  (BIN  FIXED  (IS)); 
DCL  GFTIDNT  ENTRY  RETURNS  (BIN  F I XFD  (IS)); 


/*  VARIABLES  FDR  SMFS  */ 


DCL  CMPLT3(2)  BIN  FIXFD  (31)  ALIGNED  STATIC  EXT: 
DCL  CMPLT4 ( 2 )  BIN  FIXFD  (31)  ALIGNED  STATIC  FXT: 
DCL  1  WRTORJI  STATIC  FXT, 

2  OPCD  BIT  ,'R)  unalignfd, 

2  FLGS  BIT  (16)  unalignfd, 

2  NLNG  RIT  (R)  UNALIGNFD, 

2  FNAM  CHAR  (36)  UNALIGNFD, 

2  DLNG  RIN  FIXFD  (31)  ALIGNED, 


000004)0 

00000420 

00000430 

00000440 

000004S0 

00000460 

00000470 

000004R0 

00000490 

ooooosoo 

00000510 

00000520 

00000530 

00000S40 

000005S0 

00000560 

00000570 
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2  RYTLCDT  BIN  FIXED  (IS)  ALIGNED, 

2  CDDE(0:1999)  BIN  FIXFD  (IS)  A L I GNFD : 

DCL  1  WRTDRJT1  STATIC  F  XT  * 

2  DPCD  BIT  ( H )  UNALIGNFD, 

2  FLGS  BIT  (  16)  (INAL  I  GNFD, 

2  NLNG  BIT  (8?  UNALIGNFD, 

2  FNAM  CHAR  (36)  UNALIGNFD, 

2  DLNG  RIN  FIXEO  (31)  ALIGNED, 

2  BYTLLBT  BIN  FIXED  (IS)  ALIGNED, 

2  LRTN3(0: 199) , 

3  LBLVLU  BIN  FIXED  (IS)  ALIGNED  INITIAL  ((200)0), 

3  LRLDFST  BIN  FIXED  (IS)  ALIGNED  INITIAL  ((200)0): 

DCL  1  WRTDBJT2  STATIC  FXT, 

2  DUMMY  BIT  (R)  ALIGNED  INITIAL  (0), 

2  DPCD  BIT  (fl)  UNALIGNFD  INITIAL  (• 000000 1 1 » B ) , 

2  FLGS  BIT  (16)  UNALIGNFD  INITIAL  (• 001 0000000000000  •  P ) , 

2  DLNG  BIT  (32)  UNALIGNFD  INITIAL  (0), 

2  BYTLIDT  BIN  FIXED  (IS)  ALIGNED, 

2  RYTLLTT  BIN  FIXFD  (IS)  ALIGNED, 

2  I DTN3 ( 0 : 5 1 1 ) » 

3  IDTYPF  BIN  FIXFD  (IS)  ALIGNED  INITIAL  ((Sl?)0), 

3  I  DLNG  BIN  FIXFD  (IS)  A  L I  GNFD  INITIAL  ((*>12)0), 

3  IDDFST  RIN  FIXED  (IS)  ALIGNED  INITIAL  ((S12)0); 

DCL  1  WRTDBJT3  STATIC  EXT, 

2  DUMMY  BIT  (fl)  ALIGNED  INITIAL  (0), 

2  DPCD  BIT  (fl)  UNALIGNFD  INITIAL  (• 0000001 l • B ) , 

2  FLGS  RIT  (16)  UNALIGNFD  INITIAL  ( ' 00 1 0 000000000000 ' B ) » 

2  DLNG  BIT  (32)  UNALIGNFD  INITIAL  (0), 

2  LTRLS  CHAR  (2000)  ALIGNED  INITIAL  ("): 


/*  LOCAL  VARIABLES  */ 

DCL  REPLY  BIN  FIXED  (IS)  STATIC  INITIAL  (0)5 
OCL  INPUTRM  BIN  FIXFD  (IS)  STATIC  I NI T  (1): 

DCL  SICP  RIN  FIXFD  (IS)  STATIC.  I  NI  T  (0); 

DCL  PRDCTN  BIN  FIXFD  (IS)  STATIC  INIT  (0)5 
DCL  ALTRNfl  BIN  FIXFD  (IS)  STATIC  INIT  (0); 

DCL  RCNTR  rin  FIXFD  STATIC  INITIAL  (0): 

DCL  TCN'R  BIN  FIXED  STATIC  INITIAL  (0); 

DCL  ICl  BIN  FIXFD  STATIC  INITIAL  (-1): 

DCL  I DNAMF (0:255)  CHAR(4)  UNALIGNFD  STATIC  EXT  INIT  ( ( ?S6 ) ( 4 ) • • ) ; 
DCL  I DSTK ( 16 )  BIN  FIXED  (IS)  STATIC  INITIAL  ((16)0): 

DCL  I  DSP  BIN  FIXFD  (IS)  STATIC  INITIAL  (0)5 
DCL  LARFL  BIN  FIXED  (IS)  STATIC  INITIAL  (0): 

DCL  (I, TEMP)  RIN  FIXFD  (IS)  STATIC: 

DCL  TEMP32  BIN  FIXED  (31)  STATIC  : 

DCL  SR  OUT ( 80 )  LABEL  : 

DCL  ALT  RIN  FIXFD  (IS)  STATIC  INITIAL  (0): 

DCL  L TRNTKN ( 30 )  BIN  FIXFD  (IS)  STATIC  FXT  INIT  ((30)0): 

DCL  DFTYPF  (90)  BIN  FIXFD  (IS)  STATIC  FXT  INIT 
(♦U 
-2,-2, 

♦  3  * 


OOOOOSRO 
00000590 
00000600 
00000610 
00000620 
00000630 
00000640 
00000660 
00000660 
00000670 
000006R0 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000760 
00000760 
00000770 
000007AD 
00000790 
OOOOOflOO 
OOOOOR 1 0 
OOOOOfl  20 
OOOOOR  30 
00000840 
OOOOORSO 
00000A60 
0  0  0  0  0  ft  7  0 
OOOOORAO 
00000890 
00000900 
00000°10 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
OOOOIOSO 
00001060 
00001070 
00001080 
00001090 

oooonoo 
00001110 
00001120 
00001 130 
00001140 
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+4, +4, 

+5, +5, 

+6t+ftf 

+  7 »  +  7  v 

+R,+R,+R,— R,—  8  f 
-9, 

+  10, 

-11,-11. 

12,-12, 

+  13, 

+14, +14, +14, +14, +14, +14, +14, +14, +14, +14, +14, +14, +14, +14, +14, +14 
+14, +14, 

+15, -15, +15, 

+16, +16, +16, 

-17, +  17, 

-lft, +1P, 

-19,-19, 

-?0 , +20, 

-21,-21,-21,-21,-21,-21, 

-22, +22, 

-23,-23,-23,-23,-23,-23.-23,-23, 

+24, 

+25,-25, 

+26, +26, +26, +26, 

-27,-27,-27,-27, 

+?R,+28,-2ft,+2ft,+2H,-2R, 

+  29); 

DCl  CflMPR  S  ( 6 )  BIN  FIXED  (15)  STATIC  INITIAL 
(  2232, 2233, 223  5, 2234 f 2230, 223  1»  ; 

DCL  HOLD (10)  BIN  FIXED  STATIC  INITIAL 

(0,0, 0,4, 0,0, 0,0, 0,0) : 

R  FPL Y  =  0: 

TEMP  =  DFTYPE (CDMPNT) : 

LTRNTKN(ABS(TEMP) )  =  CDMPNT: 

IF  TEMP  <=  0  THEN  RFTURN(D): 

IC1  =  ICO: 

IF  TEMP  =  14  THEN  GO  TD  SRDUT(25): 

IF  TEMP  =  2ft  THEN  GO  TO  SRDUT(R4): 

GO  TO  SRODT ( COMPNT ) : 

EXIT: 

I C0= I c 1 : 

NOOP: 

RFTURN(RFPLY)  : 

ERROR  : 

RFPLY  =  -3: 

ICO  =  IC: 

IF  RCNTR  >  0  THFN  RCNTR  =  0: 

IF  TCNTR  >  0  THFN  TCNTR  =  TCNTR-1 : 

R  FTORN (REPLY ) : 


/*  DFFINED  TYPE  1 

/*  1  GLOMP  ::=  FORM  I 

SRODT ( 1 ) : 

CALL  TABLES: 

DO  I  =  0  TO  NMIDS: 


00001150 
00001160 
00001170 
000011R0 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
00001270 
00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 
00001370 
00001380 
00001 390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
000015R0 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
♦/00001660 
*/00001670 
000016A0 
00001690 
00001700 
00001710 
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IF  IDTYPFU)  =  0  THFN  IDOFSTU)  =  0: 

end: 

RYTLCDT  =  I IC  +  1  )*2: 

WRTORJI  .DING  =  (  8*BYTLCDT  )  + 16 ; 

CALL  SMFLID(CMPLT3, WRTORJI  ): 

RYTLLRT  =  4*(NMLBS+1): 

WRT0BJT1,  OLNG  =  ( 8*BYTLLRT )+ 1 6 : 

CALL  SMFLI0(CMPLT4,WRT0RJT1 )  ; 

BYTLIDT  =  6*(NMinS+l); 

TFMP32  =  (8*BYTLIDT)+32: 
WRT0BJT2.DLNG  =  UNSPFC ( TFMP32 ) : 

CALL  SMFSI0(CMPLT4tWRT0BJT2): 

RYTLLTT  =  LTEND+1 : 

TFMP32  =  8*RYTLLTT: 

WR  T0BJT3*  OLNG  =  UNSPEC ( TFMP32  )  : 

CALL  SMFSI0(CMPLT4tWRTf)RJT3)  : 

GO  TO  EXIT: 


/*  DEFINED  TYPE  2 

/*  2  FORM  RULE 

/*  3  I  FORM  RULE 

/*  SROUT ( 2 ) 5  */ 

/*  SROUT ( 3 ) :  */ 


/*  DEFINFD  TYPE  3 

/*  4  RULE  ;:=  LABEL  INPUTSTRFAM  OUTPUTSTREAM 

SROUT ( 4 ) : 

I NPUTRM  =  1; 

TCNTR  =  0: 

CALL  GNRTRI 7G00+RCNTR  )  : 

RCNTR  =  RCNTR+I; 

TFMP  *  3000+IC1+1: 

DO  I  =  IC  +  1  TO  ICl; 

IF  CODE ( I )  *  2130  THEN  CODE (I )  =  TFMP: 

END: 

ICO  =  I 
CALL  SF  ,0E: 

LTRNTKN ( 4 )  *  0: 

LTR  NTKN  <  5 )  =  0: 

LTRNTKN ( 6 1  *  0: 

GO  TO  EXIT: 


/*  DEFINED  TYPE  4 

/*  5  LABEL  INTEGER 

/♦  6  j 

SROUT! 5): 

HOLD ( 2 )  =  BINARY ( RCDVLU ) : 
TEMP  =  NMLBS: 

LABEL  =  FINDL8(H0LD( 2)  )  : 

IF  TEMP  »  NMLBS  THEN 
DO: 


00001720 
00001730 
00001740 
00001750 
00001760 
00001770 
000017R0 
00001790 
0000 1 ROO 
0000 1 fi  1 0 
00001R20 
0000 1 R  30 
0000 l R40 
0000 1 R  50 
0000 j  860 
00001870 
00001880 
00001890 
00001900 
*/00001910 
*/00001920 
* /OOOO 1 930 
00001940 
00001950 
00001960 
00001970 
00001980 
*/00001990 
*/00002000 
00002010 
00002020 
00002030 
00002040 
00002050 
00002060 
00002070 
00002080 
00002090 
00002100 
00002110 
00002120 
00002130 
00002140 
00002150 
00002160 
00002170 
00002180 
*/00002190 
♦/00002200 
*/00002210 
00002220 
00002230 
00002240 
00002250 
00002260 
00002270 
00002280 
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CALL  PI  SPLAY  {  PCDVLtl  I  I  *  IS  A  POORLY  PEFINFP  L  A  RF  L  •  )  : 

Gfl  TP  ERROR: 

FNP: 

IF  LAHFL  >=  MXLBLS  THEN  GO  TO  FRROR: 

IF  HOLP ( 2 )  <  LBLFLR  I  HOLP(2)  >  LBLCLNG  THEN 

on; 

CALL  DISPLAY! 

•LABEL •  II BCDVLOl  I ■  IS  NOT  >= *  !  | L BL FL R I  I •  OR  <=•  II LBLCLNG ) : 
GO  TO  ERROR; 

END? 

SROOT ( 6 )  : 

IF  INPOTRM  =  l  THFN  CALL  GNRTR(??41): 

GO  TO  EXIT; 


/*  PFEINFD  TYPE  5 

/*  7  I  NPllTSTR  F  AM  ::=  TFRMS 

/*  B  I 

SROOT! 7  )  : 

SROOT (R  )  : 

GO  TO  SROOT ( 12  )  : 


/*  DFFINFP  TYPE  6 

/*  9  TERMS  ::=  TFrm 

/*  10  |  TERMS  ,  TERM 

SROOT ( 9 ) : 

SROOT ( 10) : 

CALL  GNRTR (6000+TCNTR ) : 

TCNTR  =  TCNTR+l: 

I  PSP  =  0: 

pn  I  =  7  TO  vocab#-tfrminal# : 

LTRMTKN! I )=0; 

END: 

po  I  =  l  to  in: 

HOLP!  I  )  -  C 
ENO: 

GO  TO  FXIT: 


/* 

PEFINFP 

TYPE  7 

/* 

11 

OOTPOTSTREAM  ::=  SB  P  FR  ATPR  TFRMS 

/* 

12 

1 

SROOT (11): 
SROOT (12): 

INPOTRM  -  0; 

GO  TO 

EXIT; 

/* 

pfeinep 

TYPE  R 

/* 

13 

TFRM  ::= 

IPENTIFIFF  ( 

DESCRIPTOR  CONTROL 

/* 

14 

! 

I  PENT  I E  f  FE 

/* 

15 

1 

(  PFSCR I PTOR 

CONTROL  ) 

00002290 
00002300 
00002310 
00002320 
00002330 
00002340 
00002350 
00002360 
00002370 
00002380 
00002390 
00002400 
00002410 
00002420 
00002430 
00002440 
* /00002450 
*/00002460 
* /00002470 
000024R0 
00002490 
00002500 
00002510 
00002520 
00002530 
*/00002540 
*/00002550 
*/00002560 
00002570 
000025RO 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
00002670 
000026RP 
00002690 
00002700 
00002710 
♦/00002720 
*/ 00002 730 
«/00002740 
00002750 
00002760 
00002770 
000027R0 
00002790 
00002R00 
00002R  10 
*/00002R20 
*/00002R30 
*/00002R40 
*/00002RS0 
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/*  16  I  (  CUMPARFXPR  CDMTRni.  ) 

/ ^  17  I  (  ASSGNFXPR  CONTROL  ) 

SRnuT( 13) : 

Gn  to  SRnuT( 15) : 

SROUTl 14) : 

CALL  GNRTR ( 5000 ) : 

CALL  GNRTR ( inSTK( 1 )  )  : 

CALL  GNRTRi2112): 

CALL  GNRTR ( IDSTK( 1  )  )  f 
CALL  GNRTR ( I DSTK (  1  )  >  : 

CALL  GNRTR (21)1): 

Ic  I NPIJTRM  =  0  THEN  CALL  GNRTR (2260): 
ELSF 

CALL  GNRTP.  (2251  )  : 

SROGT ( 15): 

CALL  GNRTR (2130)  : 

CALL  Gn<TR(?2?l  )  ; 

Gn  Ti*  *  \  j 

/«  SR  "T ( 16)  :  */ 

/*  SRt  ,T(  17)  :  */ 


/•»  OPINED  TYPE  9 

/*  1ft  IOFNTIFIFF  IDENTIFIER 

/*  SR DUT  C 1ft ) :  */ 


/*  DEFINED  TYPE  10 

/*  19  DESCRIPTOR  ::=  RFP  ♦  DATYPF  ,  VALUT  ♦  LENGTH 

SRDUT ( 19) : 

IF  INPOTRM  =  0  THEN  CALL  GNR  TR ( 2260 )  ; 

ELSE 

on: 

IF  LTRNTKN ( 9 )  =  0  THEN  CALL  GNRTRI2251): 

ELSE 

DO; 

CALL  GNRTR (2250): 

CALL  GNRTR  t  3000+ (  IC1-.  4) +  1  )  : 

CALL  GNR  TR ' 222 1  )  : 

CALI  GNRTR (  »DSTK ( 1 ))  : 

CALL  GNRTR(??00); 

END: 

END: 

GO  ~0  EXIT: 


/«  OFFINFO  TYPE  11 

/*  20  CONTROL  ::  =  :  OPTIONS 

/*  .71  I 


*/noon?p6o 
*  /0000?  ft  7 0 
0000?ftftn 
00002R90 
00002900 
00002910 
00002920 
00002930 
00002940 
00002950 
00002960 
00002970 
000029H0 
00002990 
00003000 
00003010 
00003020 
00003030 
00003040 
00003050 
00003060 
00003070 
00003080 
00003090 
00003100 
000031 10 
*/00003120 
♦/000031 30 
00003140 
00003150 
00003160 
00003170 
*/00003180 
* /GOOD 3  1 9() 
00003200 
00003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 
000032R0 
00003290 
00003300 
00003310 
00003320 
00003330 
00003340 
00003350 
00003360 
00003370 
->•  /  0  0  0  0  3  3  ft  Q 
<=  /OOOO  3  390 
❖/00003400 
00003410 
00003420 


*  SRDUT ( 20 ) :  */ 
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/*  SROIIT  (21)  :  */ 


/*  DEFINED  TYPE  12 

/*  ?2  CDMPAREXPR  C.flNCAl  CONNECTIVE  CDNCAT 

/*  23  I 

SROUT { 22  )  : 

CALL  GNRTR  I  CDMPRS ( L TRNTKN  (  2  1  )-56)  )  : 

GO  TO  EXIT: 

/*  SROIIT  (  23  )  :  ♦/ 


/*  OEFINEO  TYPE  13 

/*  24  ASSGNEXPR  ::=  IDENTIFIER  .<=.  CONCAT 

SROUT ( 24 ) : 

CALL  GNRTRI IOSTKI1) ) : 

CALL  GNRTR ( 2200 ) : 

GO  TO  EXIT: 


/*  OEFINEO  TYPE  14 
/*  25  IDENTIFIER  ?:=  A 

B 
E 
E 
L 
0 
s 

T 
II 
V 
X 

A  r 
Ef) 

ER 
SB 
SR 
UR 

<ALPHA  ALPHANUM> 

SROUT ( 25 )  : 

/*  SROUT ( 26 ) :  */ 

/*  SROUT  (  27  )  :  */ 

/*  SR0UTI2R):  */ 

/*  SROUT ( 29 )  :  */ 

/*  SR  OUT  (  30 )  :  *>/ 

/*  SROUT ( 3 1 ) :  */ 

/*  SROUT (32)-  */ 

/*  SROUT ( 33 ) :  */ 

/*  SROUT ( 34 ) :  */ 

/*  SROUT  (  35  )  :  */ 

/*  SROIIT  (  36  )  :  */ 

/*  SROUT ( 37  )  :  */ 

/*  SROUT  (  3 R  )  :  */ 


/*  26 

/*  27 

/*  ?R 

/*  29 

/*  30 

/*  31 

/*  3? 

/*  33 

/*  34 

/*  35 

/*  36 

/*  37 

/*  3fl 

/*  39 

/*  40 

/*  41 

/*  42 


0000°  430 
00003*40 
00003450 
<t/00003460 
* /00003470 
*/000034R0 
00003490 
00003500 
00003510 
00003520 
00003530 
00003540 
00003550 
00003560 
*/00003570 
* /000035RO 
00003590 
00003600 
00003610 
00003620 
00003630 
00003640 
00003650 
*/00003660 
♦ /00003670 
*/0000:»' 
♦/00003690 
*/00003700 
*/00003710 
*/00003720 
* /00003730 
*/00003740 
♦ /00003750 
*/00003  760 
*/00003770 
*/000037R0 
♦/00003790 
♦/00003R00 
*/00003R10 
*/00003R20 
♦/00003R30 
*/00003R40 
00003R50 
00003R60 
00003R70 
00003RRO 
00003R90 
00003900 
00003910 
0000392C 
00003930 
00003940 
00003950 
00003960 
00003970 
000039RO 
00003990 
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/*  SRDUT  (  39  )  :  */ 

00004000 

/*  SRDUT ( 40  )  :  * 

00004010 

/*  SRDUT(41):  */ 

00004020 

/*  SRDUT ( 42  )  :  */ 

00004030 

TFMP  =  LFNGTH ( BCOVLU ) : 

00004040 

IF  TFMP  >  IDLNGTH  THEN 

00004050 

nn: 

00004060 

CALL  DISPLAY! ' IDENTIFIER:  '  )  : 

00004070 

CALL  DISPLAY! BCOVLU)  : 

000040R  0 

CALL  DISPLAY! 

0000409O 

'HAS* 1  ITEMPI  |  •  CHARACTERS.  MAX  IS  4'): 

00004100 

GD  TD  ERROR: 

00004110 

END; 

00004120 

I  DSP  =  IDSP+l: 

00004130 

IF  I  DSP  >  MXSTKS7  THEN 

00004140 

DO: 

00004150 

CALL  DISPLAY! ' IDSTACK  OVERFLOW.  MAX  I  $  •  | 

1  MXSTKSZ ) : 

00004160 

I  DSP  =  0: 

00004170 

GO  TO  ERROR: 

00004180 

END: 

00004190 

I DSTK ( I  OS P )  =  F I  NO  I D ( BCOVLU ) : 

00004200 

IF  I DSTK ( I DSP )  >=  MXIDS  THEN  GO  TO  ERROR 

; 

00004210 

IF  IDOFST! IDSTK! IDSP) )  >=  MXNDXS  THEN  GO 

to  frror: 

00004'  0 

GO  TO  EXIT; 

0000 

00004, 

00004250 

/*  DEFINED  TYPE  15 

*/00004?60 

/*  43  REP  * 

*/00004270 

/*  44  |  ARITH 

♦/000042RO 

/*  45  I 

*/00004290 

00004300 

SROUT (43  )  : 

00004310 

CALL  GNRTR(4000): 

00004320 

GO  TO  EXIT: 

00004330 

00004340 

/*  SROUT ( 44  )  :  */ 

00004350 

00004360 

SROUT (45) : 

00004370 

CALL  GNR TR ( 5000 ) : 

000043  R  0 

GO  TO  EXIT: 

00004390 
00004400 
0000441 0 

/*  OFF  I NFD  TYPE  16 

*/00004420 

/*  46  DATYPE  : :=  LITYPF 

+/00004430 

/*  47  IT!  IDENTIFIER  ) 

*/00004440 

/*  4R  ! 

*/0000^450 

00004460 

SROUT (46)  : 

00004470 

CALL  GNRTR ( 1000  +  LTRNTKN! ?3  )-6  4  )  : 

00004^80 

GO  TO  EXIT: 

00004490 

00004500 

SROUT (47)  : 

00004510 

CALL  GNRTR!  I.  ' TK ( IDSP)  )  : 

00004520 

CALL  GNR  TR ( 2 1 1 2  )  : 

00004530 

GO  TO  FXIT: 

00004540 

00004560 

SROUT (4R ) : 

0000466H 
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LTRNTKN ( 23 )  =  65; 

00004570 

GO  TO  SROtIT  (  46)  : 

00004580 

00004690 

00004600 

/4 

DEFINED  TYPE  17 

4/00004610 

/4 

49  VALUE  CONCAT 

4/00004620 

/* 

50  I 

* /00004630 
00004640 

/4  SR 01  IT  (  49  )  :  4/ 

00004650 

00004660 

S«niiT  ( 50) : 

00004670 

CALL  GNRTR (5000); 

00004680 

GO  TO  EXIT; 

0000469O 

00004700 

00004710 

/* 

DEFINED  TYPE  18 

4/00004720 

/4 

61  LENGTH  :  :=  AR I TH 

4  /C  ~  0C1473O 

/« 

52  1 

4/00004740 

00004750 

/4  SROHT (51);  4/ 

00004760 

00004770 

SRfltJT  (  5?  )  : 

00004780 

IF  LTRNTKN (  16 )  =  48  T HFN  CALL  GNRTR ( 103? ) « 

00004790 

GO  TO  FXIT; 

00004800 
00004R 1 0 
00004820 

/4 

OFFINFO  TYPE  19 

4/00004830 

/4 

53  OPTIONS  =  TEST 

4/00004840 

/4 

54  |  TEST  ,  TEST 

4/00004850 

00004860 

/*  SROOT (53 ) :  */ 

00004870 

/4  SROUT (54) ;  */ 

00004880 

00004890 

00004900 

/* 

OFFINFO  TYPE  ?0 

4/000049 1 0 

/* 

55  CONCAT  ! :=  VAL 

4/00004920 

/* 

56  I  CONCAT  1 1  VAL 

4/00004930 

00004940 

/*  SR  OUT (55):  4/ 

00004950 

00004960 

SROlIT  (  56  )  : 

00004970 

CALL  GNRTR (?040): 

00004980 

GO  TO  FXIT: 

00004990 

00005000 

00005010 

/4 

DEFINED  TYPF  21 

4/00005020 

/4 

57  CONNECTIVE  .LF. 

4/00005030 

/* 

5*  I  .LT. 

4/00006040 

/* 

59  |  .OF . 

4/00005050 

,  4 

60  |  ,r,T. 

4/00005060 

/* 

61  |  . FO  , 

4/00005070 

/* 

62  I  .NF. 

4/000050PO 

00005090 

/*  SROOT ( 57 ) :  4/ 

00005100 

/#  SROOT ( 5R ) :  4/ 

00005110 

/*  SROOT ( 59 ) :  4/ 

00005120 

/*  SROOT ( 60) :  4/ 

000051 
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/*  SROI IT  (  61  )  :  */ 

00005140 

/*  SROUT ( 62 ) :  */ 

00005160 

00005160 

00006170 

/3 

0  F  F  I  N  F  D  TYPF  22 

3/000051R0 

/3 

63  AR1TH  ::  = 

PRIMARY 

3/00005190 

/V 

64  I 

ARITH  OPERATOR  PRIMARY 

3/00005200 

000052 1 0 

/*  SROUT ( 6  J ) :  */ 

00005220 

00005230 

SRDUT(64) : 

00005240 

CALL  GNRTR(2000+(LTRNTKN(27)-8O)vlO) ; 

00005260 

GD  TO  FXIT; 

00005260 

00006270 

00005280 

/* 

OFF  I NFO  TYPF  23 

3/00006290 

/* 

65  L  I  TYPF  :: 

=  R 

3/00005300 

/* 

66 

1  0 

3/00005310 

/3 

67 

I  X 

3/00005320 

/* 

68 

1  F 

3/00005330 

/3 

69 

I  A 

3 / 0000  5  340 

/* 

70 

I  FO 

3/00006350 

/* 

71 

I  AO 

3/00005360 

/* 

72 

1  SR 

3/00005370 

00005380 

/*  SROUT (65):  */ 

G0005390 

/*  SROUT ( 66 ) :  3/ 

00005400 

/3  SROUT ( 67 ) :  3/ 

00006410 

/*  SROUT (68):  3/ 

00005420 

/3  SROUT ( 69 ) :  3/ 

00006430 

/*  SROUT ( 70) :  */ 

00005440 

/*  SROUT ( 7 1 ) :  */ 

00006450 

/*  SROUT { 72 ) :  */ 

00005460 

00005470 

00005480 

/* 

OFF  I NFD  TYPE  24 

3/00005490 

/* 

73  TEST  ::= 

<  SPUR  IOFNT>  (  ARITH  ) 

*/00005600 

00005610 

SROUT  (  7^  )  : 

00005520 

IF  LTRNTKN ( 28 )  > 

=  87  THEN  CALL  GNRTR(2210): 

00005530 

FLSF 

00005540 

on: 

00005660 

CALL  GNR  TR (2120) 

; 

00005660 

CALL  GNR TR ( 2222 ) 

; 

00005570 

FNO: 

00006680 

IF  LTRNTKN ( 28 )  - 

=  86  f.  LTRNTKN(28)  -.=  89  THEN 

000( 5590 

^OOF(ALT)  =  3000+IC1+1: 

00005600 

GO  TO  FXIT; 

00005610 

00005620 

00005630 

/* 

OF* INFO  TYPF  25 

3/00005640 

/* 

/  4  VAL  : : =  L 

ITYPF  LUSTRING 

3/00005660 

/* 

75  1  ARITH 

3/00005660 

00005670 

SROUT (  74  )  : 

00005680 

TFMP  =  F INOL f ( RCOVLIU  LTRNTKN ( 23 )-64 ) ; 

00005690 

IF  TFMP  <  0  THEN 

GO  TO  8RR0R: 

00005700 
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CALL 

GNRTR ( TFMP  ) ; 

GO  TO 

EXIT: 

/* 

DEF  i  NED 

TYPE  26 

/* 

76 

PRIMARY  ::= 

IDFNTIFIFR 

/* 

77 

1 

L  (  IDFNTIFIFR 

/* 

78 

1 

V  (  I  DENT  I  f* 1  FR 

/* 

79 

1 

INTFGER 

/*  SR  OUT ( 75 )  :  */ 


SR  OUT  (  76)  : 

call  gnrtr ( insTK( idsp ) ) : 
on  to  exit: 

SROUT ( 7?)  : 

call  gnrtr( idstki IDSP)  ) : 

CALL  GNRTR (2111)  : 

GO  TO  EXIT: 

SROUT ( 7R ) : 

CALL  GNR  TR  (  1DSTM  IDSP)  )  : 
CALL  GNRTR (2110) : 

GO  TO  EXIT: 

SROUT ( 79) : 

HOLD! 1 )  =  R I NAR  Y ( RCDVLU )  : 
CALL  GNRTR( lOOO+HOLDil ) ) 5 
GO  TO  EXIT; 


/*  DEFINED  TYPE  27 


/# 

RO  OPFRATDR  :: 

:  =  + 

/* 

PI 

1  - 

/* 

R2 

1  * 

/* 

83 

1  / 

/*  SROUT ( 80 ) : 

*/ 

/v  SROUT ( 81 ) : 

*/ 

/*  SROUT (R2) : 

*/ 

/*  SROUT ( 83 ) : 

*/ 

/* 

DFF I  NED 

TYPE  2R 

/* 

R4 

<SFUR  I  DENT> 

:  :=  S 

/* 

R  5 

1  F 

/* 

P  6 

1  u 

/* 

R  7 

1  SR 

/* 

RR 

1  FR 

/* 

R9 

1  UR 

SROUT ( R4  )  : 

/*  SROUT (85):  */ 
/*  SROUT ( R6 ) :  */ 
/*  SROUT (87):  */ 
/*  SROUT <  RR  )  :  */ 


00005710 

00005720 

00005730 

00005740 

♦/00005750 

*/00005760 

)  * /00005770 

)  */00005780 

* / 00005790 
00005300 
00005810 
00005820 
00005830 
00005840 
00005850 
00005860 
00005870 
00005880 
00005R90 
00005900 
00005910 
00005920 
00005930 
00005940 
00005950 
U9005960 
00005970 
00005980 
00005990 
00006000 
00006010 
00006020 
♦/00006030 
*/00006040 
* /00006050 
*/ 00006060 
♦ /00006070 
00006080 
00006090 
00006100 
00006110 
00006120 
00006130 
00006140 
♦/00006150 
♦/00006160 
♦/00006170 
♦/000061RD 
* / 00006 190 
*/00006200 
* /000062 1 0 
00006220 
00006230 
00006240 
00006250 
00006260 
00006270 
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/*  srdut(89):  */ 

ALT  =  IC1+1; 

CALL  GNRTR (2130) ; 

IF  LTRNTKN(28)  -  84  |  L  TRNTKN ( 28  )  =  87  THFN  CALL  GNRTR(2221); 
IF  L  TRNTKN ( 28 )  =  35  I  L  TRNTKN ( 28 )  =  88  THFN  CALL  GNRTRI2220): 
GO  TO  EXIT: 


/*  DEFINFD  TYPE  29 
/*  90  SEPERATOR  =  : 

SROUT (90)  : 

CALL  GNRTR ( 2240  )  ; 

GO  TO  EXIT: 


GNRTR:  PROCEOIJRE  (  INSTRCTN  )  R  FTUR  NS  (BIN  FIXFO  (15)): 

OCL  INSTRCTN  BIN  FIXEO  (15): 

DCL  S A 1 0  BIN  FIXED  (15)  ALIGNED  STATIC  INITIAL  (0): 
/*  ROUTINE  Tn  POST  AN  INSTRUCTION  */ 

V  =  I C 1  1 : 

IF  I  >*  MXINSTS  THEN 
UO; 

IF  SAID  =  0  THFN 
CALL  D I SPL AY ( 

'INSTRUCTION  STACK  OVFRFLOW.  ^AX  IS  •  I  I  MX l NSTS ) : 
SAID  =  1: 

REPLY  =  -3: 

I  =  IC: 

RETURN: 

end: 

IC1  =  IS 

CODE ( IC 1 )  =  INSTRCTN: 

END  GNRTR: 


FINDLB:  PROCEDURE  ( L  )  RETURNS (BIN  FIXED  (15)); 

DCL  L  BIN  FIXED  (IS): 

DCL  SAID  BIN  FIXED  (15)  ALIGNED  STATIC  INITIAL  (0): 

/*  ROUTINE  TO  FIND  A  LARFL  */ 

IF  NMLBS  >=  0  THEN 
DO  I  =  0  TO  NMLBS: 

IF  LBLVLU(I)  =  L  THFN  RETURN ( I ) : 

END; 

I  =  NML  RS+ 1  : 

IF  I  >*  MXLBLS  THFN 
DO: 

IF  SAID  --  0  THEN 

CALL  DISPLAY!  'LABEL  T ABLE  OVFRFLOW.  MAX  iS  'I  (MXLBLS): 
LBLOFST  ( k’MLBS  )  =  (IC+1)*2: 

SAID  »  l; 


00006280 

00006290 

00006300 

00006310 

00006320 

00006330 

00006340 

00006350 

*/000063o0 

*/00006370 

00006380 

00006390 

00006400 

00006410 

00006420 

00006430 

00006440 

00006450 

00006460 

00006470 

00006480 

00006490 

00006500 

00006510 

00006520 

00006530 

00006540 

00006550 

00006560 

00006570 

00006580 

00006590 

00006600 

00006610 

00006620 

00006630 

00006640 

00006650 

00006660 

00006670 

00006680 

00006690 

00006700 

00006710 

00006720 

00006730 

00006740 

00006750 

00006760 

00006770 

00006780 

00006790 

00006800 

00006810 

00006820 

00006830 

00006840 
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RFPLV  =  -3: 

R F Tl JR  N  (  MXLBLS  )  : 
END: 

NMLBS  =  I: 
LBLVL(MNMLBS)  =  L: 
RFTURN  (  NMLBS  )  : 

END  FINDLP: 


F I  NO  I  0 : PR  nCFDUR  F ( K )  R F TURNS ( B I  NARY  FIXFD  (15)): 

DCL  K  CHAR(4)  VAR  : 

DCL  SAID  BIN  FIXFf)  (15)  ALIONFD  STATIC  INITIAL  (0): 

DCL  SAID2  BIN  FIXFO  ( 1 S )  ALIGNFD  STATIC  INITIAL  (0): 

/*  ROUT  I NF  TO  FIND  AN  I DFNT I F I FR  */ 

IF  NMNDXS  >=  0  THFN 
DDT  =  0  T  0  MM  IDS: 

IF  I DT YPF ( I )  =  0  THFN 

no: 

IF  I DNAMF ( I  DOF  ST ( I  ) )  =  K  THFN  RFTURN(I): 

END: 

FND: 

I  =  NMNDXS+1: 

IF  NMNDXS  >=  MXNDXS  THFN 
DO: 

IF  SAID  =  0  THEN 
CALL  DISPLAY! 

' FXCFFDED  MAX  NUMRFR  OF  IDENTIFIERS.  MAX  IS* I | MXNDXS ) ? 

SAID  =  l: 

REPLY  =  -3: 

I  =  MXNDXS: 

FND: 

NMNDXS  =  I  : 

IDNAME ( NMNDXS )  =  K: 

GFTIDNT:  ENTRY  R  F  TURNS  (BIN  FIXFf)  (15)): 

I  =  NMIDS+1; 

IF  I  >=  MXIDS  THFN 

on: 

IF  SAID?  =  0  THFN 

CALL  DISPLAY!  * IDFNTIFIFR  TABLF  OVERFLOW.  MAX  IS*  I  I MXNDXS ) 5 
SAID?  =  1: 

REPLY  =  -3: 

RFT!IRN(MX  IDS  )  : 

END: 

nmids  =  I: 

IDOFST ( NM IDS )  =  NMNDXS: 

IDTYEF(NMIDS)  =  0, 

RETURN(NMIDS) ; 

END  FINDID: 


FINOLT:  PROCEDURE (M.N)  R  F  TUR  NS ( B l N  F I  X  FD  (15)): 
DCL  M  CHAR ( ? 56  )  VAR  : 


00006 B 50 
00006R60 
00006R70 
00006BB0 
00006800 
00006900 
00006910 
000069?0 
00006930 
00006940 
00006950 
00006960 
00006970 
000069R0 
00006990 
00007000 
00007010 
00007020 
00007030 
00007040 
00007050 
00007060 
00007070 
000070R0 
00007090 
00007100 
00007110 
000071 ?0 
00007130 
00007140 
00007150 
00007160 
00007170 
00007 180 
00007190 
00007200 
00007210 
00007220 
00007230 
00007240 
00007250 
00007260 
00007270 
000072R0 
00007290 
00007300 
00007310 
00007320 
00007330 
00007340 
00007350 
00007360 
00007370 
000073R0 
00007390 
0000  7  A  00 
00007410 
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net  N  RIN 

FIXFO  (IS): 

00007420 

OCL  IPOS, 

J, INOX, TMPMM IDS)  HIN  FIXFO  (15)  STATIC: 

00007430 

net  nmrr 

BIN 

FIXFO  (31)  STATIC  INITIAL  (0): 

00007440 

OCL  TBIT STR 

BIT  ( R  )  UMAl  IGNFO  STATIC  INITIAL  ('O'R): 

00007480 

OCL  CHR1 

CHARI  1)  STATIC: 

00007460 

OCL  CHR4 

CHAR ( 4 )  STATIC: 

00007470 

OCL  S A I  0 

BIN 

FIXFO  ALIGMFO  STATIC  INITIAL  (0): 

00007480 

OCL  LNGth(o: 

8)  BIN  FIXFO  (18)  STATIC  ALIGNFI)  INITIAL  ( 

00007490 

0,2,8,16, 

79, 

79,10,10,2): 

00007800 

OCL  TRNSL8R ( 

1:2,0:78)  BIT  (8)  OMALIGNFO  STATIC  FXT  INITIAL  ( 

00007510 

•11110000 

•B, 

00007520 

•11110001 

•B, 

00007530 

•11110010 

•R, 

00007540 

•11110011 

•Bt 

00^7550 

•11110100 

'R, 

. . .  7860 

•11110101 

•R, 

00007570 

•11110110 

•R, 

00007580 

•  11110111 

'Bt 

00007590 

•11111000 

•R, 

00007600 

•11111001 

•Rt 

00007610 

•11000001 

•B, 

00007620 

•11000010 

•R, 

00007630 

•  11000011 

•Bt 

00007040 

•11000100 

•R, 

00007680 

•  11000101 

•R, 

00007660 

c 11000110 

'Bt 

00007670 

•11000111 

•Bt 

00007680 

•11001000 

•B, 

00007690 

•11001001 

•Bt 

00007700 

•11010001 

•B, 

00007710 

•  11010010 

•Rt 

00007720 

•11010011 

'Rt 

00007730 

•11010100 

'Bt 

00007740 

•11010101 

•Bt 

00007750 

•11010110 

•R, 

00007760 

•11010111 

•Rt 

00007770 

•11011000 

•B, 

00007780 

•11011001 

•B, 

00007790 

•11100010 

•Bt 

00007800 

•11100011 

•Bt 

00007810 

'11100100 

•Bt 

00007820 

•11100101 

•Bt 

00007830 

'11100110 

'Bt 

00007840 

•11100111 

•B, 

00007850 

•  11101000 

’Bt 

00007860 

•11101001 

•Bt 

00007870 

•01000000 

•Bt 

00007880 

•01001011 

•Bt 

00007890 

'01001 101 

'Bt 

0000  75 wO 

•01001110 

•Bt 

00007910 

•01010000 

'Bt 

00007920 

•01011011 

•B, 

000079,0 

•01011100 

'  F. , 

00007940 

•01011101 

•  R  , 

00007950 

•01 100C00 

'Bt 

00007960 

•01100001 

•Bt 

00007970 

•01101011 

•B, 

00007980 
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01 101100 

'  B « 

00007990 

01111011 

•B, 

00008000 

01111100 

•Bt 

00008010 

01111101 

'  R » 

00008020 

01111110 

'  B  t 

00008030 

10000001 

'Bt 

00008040 

10000010 

•B, 

00008050 

10000011 

'  B  t 

00008060 

10000100 

1  B « 

00008070 

10000101 

•B, 

00008080 

10000110 

•Bt 

00008090 

10000111 

•Bt 

00008100 

10001000 

•Bt 

00008110 

10001001 

•Bt 

00008120 

10010001 

•B, 

00008130 

10010010 

•Bt 

00008140 

10010011 

•Bt 

00008150 

10010100 

•Bt 

0000P160 

10010101 

'Bt 

00008170 

10010110 

•Bt 

00008180 

10010111 

•Bt 

00008190 

10011000 

•Bt 

00008200 

10011001 

•Bt 

00008210 

10100010 

•Bt 

00008220 

10100011 

•Bt 

00008230 

10100100 

•Bt 

00008240 

10100101 

•Bt 

00008250 

10100110 

•B, 

00008260 

10100111 

•Bt 

00008270 

10101000 

'  B  t 

00008280 

10101001 

'B, 

00008290 

oooooooo 

'B, 

00008300 

01010000 

•B, 

00008310 

01010001 

•B, 

00008320 

01010010 

•B, 

00008330 

01010011 

'Bt 

00008340 

01010100 

•Bt 

00008350 

01010101 

•B, 

00008360 

01 0 1 0 1  1 0 

'B, 

00008370 

01010111 

•B, 

00008380 

01011000 

•Bt 

00008390 

01011001 

•B, 

00008400 

10100001 

'Bt 

00008410 

10100010 

'B, 

00008420 

10100011 

•B, 

00008430 

10100100 

•Bt 

00008440 

10100101 

•B, 

00008450 

10100110 

'B, 

00008460 

10100111 

'B, 

00008470 

10101000 

•B, 

00008480 

10101001 

•Bt 

00008490 

10101010 

•Bt 

00008500 

10101011 

•Bt 

00008510 

10101100 

•B, 

00008520 

10101101 

•Bt 

00008530 

10101110 

•B, 

00008540 

10101111 

•Bt 

00008550 
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10110000 

8  t 

0000R560 

10110001 

B, 

00008570 

10110010 

B, 

00008580 

.0110011 

Bf 

00008590 

10110100 

Bt 

00008600 

10110101 

B, 

0000R6 1 0 

10110110 

B* 

000086?0 

10110111 

B  ? 

00008630 

10111000 

B, 

0000R640 

10111001 

B, 

00008660 

7.0111010 

B» 

00008660 

01000000 

B, 

00008670 

01001110 

B» 

00008680 

01001000 

B, 

00008690 

01001011 

B» 

00008700 

01000110 

Bt 

00008710 

01000100 

Bf 

00008770 

01001010 

B  t 

00008730 

01001001 

Bf 

00008740 

01001101 

Bf 

00008750 

01001111 

Bf 

00008760 

01001100 

Bf 

00008770 

01000101 

Bt 

00008780 

01000011 

Bt 

00008790 

10100000 

Bt 

00008800 

01000111 

B, 

00008R 10 

01011101 

B  t 

00008R70 

11100001 

B, 

00008830 

11100010 

B, 

00008840 

11100011 

Bt 

00008850 

11100100 

B, 

00008860 

11100101 

B, 

00008870 

11100110 

B, 

00008880 

11100111 

Bt 

00008890 

11101000 

B  t 

00008900 

11101001 

B, 

00008910 

11101010 

Bt 

00008970 

11101G11 

Bt 

00008930 

11101100 

Bt 

00008940 

11101101 

Bt 

00008950 

11101110 

Pt 

00008960 

11101111 

Bt 

00008970 

11110000 

Bt 

00008980 

11110001 

B, 

00008990 

1P10010 

Bt 

00009000 

11110011 

Bt 

00009010 

11110100 

Bt 

00009070 

llliClOl 

Bt 

00009030 

11110110 

B, 

00009040 

11110111 

B, 

00009050 

11111000 

Bt 

00009060 

11111001 

Bt 

00009070 

11111010 

B, 

00009080 

00000000 

B) : 

00009090 

00009100 

/*  ROUTINE  TO  F I NO  A  LITFRAL  */ 

00009110 

00009170 

r-i  ■ 
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FRRDR  : 


main: 


NMRR  =  0: 

RFPLY  =  -3: 

TMPNMIDS  =  GT  T I  DM  T : 

IF  TMPNMIDS  >=  MXIDS  THFN  RFTIIRM(-l): 

NMIRS  =  nmids-i: 

IDTYPF ( TMPNMIDS )  =  N  5 
IDLNG!  TMPNMIDS)  •=  LFNGTH(M): 

IF  inTYPF(TMPNMIDS)  =  0  !  !  DLNG  (  TMPNM I  OS )  =  0  THEN  RFTURN(- 

IF  (LTFNDMDLNGMMPNMIDS)  >  MXLITS  f. 

(  N  >  3  I  N  <  6))  |  (  L  TFND+4  >  MXLITS  f. 

(  N  <*-  3  I  N  >=  ft  )  )  THFN 

no: 

IF  SAID  =  0  THFN 
CALL  DISPLAY! 

•LITFRAL  TABLF  OVFRFLOW.  MAX  I  S  •  I  I MXL  I  TS  I  I  •  BYTFS.M; 

SAID  =  1: 

RF  TORN ( -1  )  j 
FNO : 

IDOFST (TMPNMIDS)  =  LTFNO; 

IF  N  =  5  THFN  I NDX  =  2:  FLSF  IMDX  =  1; 

DO  POS  =  1  TO  II)LNR(TMpNMinS)  s 
TBITSTR  =  UNSPFC(SUP'‘T«  (M,PDS,  1)  )  ; 

DO  J  =  0  TO  7ft: 

IF  TBITSTR  =  TRNSLRR(lfJ)  THFN  GC1  TO  GOOD: 

FND : 


CALL  DISPLAY! 'LITFRAL:  '  )  : 
CALL  DISPLAY(M): 

CALL  DISPLAY!  MS  NOT  IN  ITS 
RETURN!-!  )  : 


SPFCI FIFO  MDDF  '  ) 


IF  J  > 
IF  N  < 
FLSF 
nn: 

ONSPFC 

SOBSTR 

FND: 

FND: 

R  F  PL  v 
IF  N  < 
DO: 

IF  N  = 
IDLMG! 
ONSPFC 
SOBSTR 
END: 

nn  pos 

IF  IDT 
IDLNG! 
SOBSTR 
SOBSTR 
THEN  R 
END: 

NM  IDS 
LTFNO 
IF  N  > 


=  LNGTH(N)  THFN  GO  TO  ERROR: 

=  3  |  N  >=  ft  THEM  NMHR  =  J  +  i.NGTH  ( N )  *NMBR : 


( C HR  1  )  -  TRNSLRR ( INDX , J ) ; 
(LTRLStLTFND+POSfl )  =  CHR 1 ; 


=  o: 

=  3 


N>=  ft  THEN 


R  THFN  NMBR  =  -NMHR : 

TMPNMIDS)  =  4; 

( CHR  4 )  =  ONSPFC! NMHR )  : 

!LTRLC,LTEND+]  ,4)  =  CHR4: 

=  0  TO  NM IDS: 

YPF(POS)  =  IDTYPF  ( TMPNMIDS)  F. 

POS)  =  IDLNG(TMPNMIDS)*R  F. 

(LTRLS, IDOFST! POS )+l, IDLNG! P  D  S ) / R )  = 
(LTRLS, IDOFST! TMPNMIDS )+l t 1 DLNG ( TMPNM I DS )  ) 
FTORN(pnS) : 

=  TMPNMIDS: 

=  IDOFST!  TMPNM IDS )  + I DL NG ( TMPNM I  ns ) : 

3  f.  N  <  ft  THFN 


nnon9i 30 
00009140 
00009150 
00009 1 ftO 
00009170 
00009 1 RO 
00009190 
l ) :oooo9?oo 
00009  ?  1 0 
00009?  2  0 
00009?30 
00009?40 
00009250 
00009260 
00009270 
000092R0 
00009290 
00009300 
00009310 
00009320 
00009330 
00009340 
00009350 
00009  3ftO 
00009370 
000093R0 
00009390 
00009400 
00009410 
00009420 
00009430 
00009440 
00009450 
00009460 
00009470 
000094R  0 
00009490 
00009500 
00009510 
r  0009520 
00009530 
00009540 
00009550 
00009*60 
00009570 
000095RD 
00009590 
00009600 
00009610 
00009620 
00009630 
00009640 
00009650 
00009660 
00009670 
00009600 
00009690 
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LT  END  =  T  R  l  INC  C (LTEND+3)/4)*4: 

I  RING  (  TMPNMIDS  )  =  I  DI.NG  (  TMpMM  I  DS  )  *8  J 
RETURN( TMPNMIDS  )  : 

END  FINDLT: 


PUCHOE:  PR RC FOUR E  ; 

RCL  ( I f  J  *  K  *  L  )  BIN  FIXER  (15)  STATIC: 

DCL  TEXT  CHAR  (  72 )  STATIC  INITIAL  ("): 

dcl  symbol  char(4)  static  initial  (••); 

OCL  OPR TR S ( 64 )  CHAR  (4)  STATIC  EXT  INIT 

(  'LDS  '  IC  S  '  S  'ADS  'ARR',  'NULL  S  ‘  EOT  •  ♦  'FOR  •  t  'ADD*  ♦  '  SIJB'  ♦  'MUL  '  , 
•niV',  'CON',","  ,'S'L  IV',  'Ll  LS'  LIT',  •  LUL  S' S' S'  STDS  '  S' S 
•  S  •  S  '  S  'RET  S  '  S  '  S  '  S  '  S  '  S  'BT*  ,  'BE  S'  RIJ*  'CEO*  , 

•CNE'  t  •  CLE  •  t  '  CLT  '  ,  •  CGF  S'  CGT  S'  SC  I  P  S'  S  I  CP  t 

'  INS  S'  I  NO*  t  "  f  'OUTS 

DECLARE  BYTE ( 4 )  BIN  FIXED  STATIC  : 

DCL  OPR  TR  CHAR ( 4 )  STATIC: 

DCL  OPRND  R1N  FIXED  STATIC: 

/*  ROUTINE  TO  REFORMAT  AND  LIST  I NSTRUCT I  DNS  OF  A  RULE  */ 

CALL  D I  SPLAY (  •  •  )  : 

CALL  DISPLAYS  ISN  INSfRCT  OPCD  OPRND  SYMROI.'): 

DO  1=1  TO  ICO-IC: 

IC  =  IC+1 : 

K  =  CODE  MC)  : 
no  j  =  i.  to  4: 

L  =  k/io: 

BYT  F ( 5- J )  =  K-L*lO: 

k  =  l: 
end: 

OPR  TR  =  OPRTRS( BYTE (  l  )  +  l  )  ; 

IE  BYTE(l)  =  2  I  BYTF(l)  =  4  |  RYTE(i)  =  5  THEN 
DO: 

K  =  0: 

DO  J  =  1  TO  4: 

K  =  BYTE ( J ) +K#  16 : 

END: 

CODE( IC)  *  K: 

IF  BYTE (  l)  =  2  THEN 
DO: 

OPR  TR  =  0PRTRS(9  +  BYTF(3)  )  : 

IE  BYTE ( 2  )  0  THEN 

DO: 

OPR  TR  =  DPRTRS(  14  +  RYTE( 3)*3  +  BYTF(4)  )  ; 

IF  BYTE (2)  -=  l  THEN 
DO: 

OPRTR  =  0PRTRS(23  +  RYTE( 3)*6+BYlE(4)  )  : 

END; 

END: 

END: 

PUT  STR  ING( TEXT  )  ED  I T (I C ♦ BY T E (  l  )  ♦ RYTE ( 2 )  . BYTE ( 3 ) ♦ BYTE ( 4 ) f OPRTR  ) 
(E(4),X(4),l-|l)fX(l),F(l),Xll),Fm,X(l),F(l),X(4),fl(4)): 

END: 

ELSE 


00009700 
00009710 
00009720 
00009730 
00009740 
00009750 
00009760 
00009770 
00009780 
00009790 
00009800 
00009810 
00009820 
00009830 
00009840 
00009850 
00009860 
00009870 
00009880 
00009890 
00009900 
00009910 
00009920 
00009931 
0000994C 
00009950 
00009960 
00009970 
00009980 
00009990 
00010000 
00010010 
ooo; 0020 
00010030 
00010040 
00010050 
00010060 
00010070 
00010080 
00010090 
00010100 
000101 10 
00010120 
00010130 
00010140 
00010150 
00010160 
00010170 
00010180 
00010190 
00010200 
00010210 
00010220 
00010230 
00010240 
00010250 
00010260 


■  |f11  ...  ^  . 
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nn; 

OPRNn  =  RYTE(2)*)00  +  RYTF( 3)*10  +  RY1E(4)  ; 

Cnf)F(TC)  =  4096*RYTE  (  1  )  -MIPRMR* 

SYMBOL  =  •  •  ; 

IF  BYTF(l)  =  0  THFN 
nn; 

IF  IDTYPE(DPRND)  =  0  THFN 
SYMBOL  =  IDNAME! IDOFST (OPRNO) ) : 

END : 

PUT  STRING (TEXT)  EDIT  ( 1 C . BYT E ( 1 )* OPRND, OPR TR , DPRND, SYMBOL ) 

(F(4),X(4),F!l),X(2),F(4)fX(4),A(4),X(?),F(4),X(2),A(4)): 

END; 

CALL  D I  SPLAY (TEXT): 

END: 

call  DISPLAY!  •  •  )  ; 

END  spucooe: 


TABLES:  PROCEDURE: 

DCL  LN  BIN  FIXFD  STATIC  INITIAL  (0): 

DLL  VAL  CHAR  (6)  VAR  STATIC  INITIAL  ('»); 

DCL  VALU  BIT  (48)  ALIGNED  STATIC  INITIAL  !'0'B): 

DCL  TEXT  CHAR  (72)  VAR  ALIGNED  STATIC  INITIAL  ("); 

DCL  TPNAME(0:R)  CHAR  (2)  UNALIGNED  STATIC  INITIAL  ( 

•  US'  R','  OS'  X','  E','  A ' , ' ED ' , ' AO ' , 1  SR ' ) ; 

/*  ROUTINE  TO  LIST  THE  CONTENT  OF  THE  COMPILFR  TABLES  */ 


CALL  DISPLAY!  •  •  )  ; 

CALL  DISPLAY!  •  •  )  : 

CALL  DISPLAY! *******  LABFl  TABLE  ******•): 

CALL  DISPLAY!  •  •  )  : 

IE  NMLRS  <  0  THEM  CALL  DISPLAY! 'NO  LABELS  DFCLARED'); 

ELSE 

DO; 

CALL  DISPLAY! ' ENTRY  LABFL  OFFSET'); 

CALL  DISPLAY! •  • ) : 

DO  I  =  0  TO  NMLRS: 


00010270 
00010280 
00010290 
00010300 
Of.  01 03 10 
00010320 
00010330 
00010340 
00010350 
00010360 
00010370 
0001 0380 
00010390 
00010400 
00010410 
00010420 
00010430 
00010440 
00010450 
00010460 
00010470 
00010480 
00010490 
00010500 
00010510 
00010520 
00010530 
00010540 
00010850 
00010560 
00010570 
00010580 
00010590 
00010600 
00010610 
00010620 
00010630 
00010640 
00010650 
00010660 


PUT  STRING (TEXT)  FDIT  (I, LB  VLU ( I ) , LBLOE ST  (  H 
(E(5),X(5),E(5),X(M,E(6)): 

CALL  DISPLAY(TEXT)  : 

END: 

end: 

CALL  DISPLAY!  •  •  )  : 

CALL  DI SPLAY ( ' ******  IDENTIFIER  TABLE  ******•); 

CALL  DISPLAY!  •  •  )  : 

IF  NMNDXS  <  0  THEN  CALL  DISPLAY!  '  NU  IDENTIFIERS  DFCLARED'): 

ELSE 

DO; 

CALL  DISPLAY! 'ENTRY  IDENTIFIER'): 

CALL  DISPLAY! •  • ) : 

DO  I  =  0  TD  NM1DS: 

I E  IDTYPF ( I )  =  0  THEN 
DO: 

PUT  STRING (TEXT)  EDIT  (I  *  I DNAME ( I  DDES! ( I  ) ) ) 


00010670 
00010680 
00010690 
00010700 
00010710 
00010720 
00010730 
00010740 
00010750 
00010760 
00010770 
000' 0780 
00010790 
00010800 
00010810 
00010820 
00010830 


c.  intnffrfn-niin-,  ,  ■ 
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( F ( 5  )  ,X( 18)  , A(4) ) : 

CALI  P ! SPLAY (TEXT) ; 

END ; 

END: 

END; 

CALL  DISPLAY* •  • ) : 

CALL  DISPLAY ( »**##**  LITERAL  TABLE  *#*#**•); 

CALL  DISPLAY! '  • ) : 

IF  LTtND  -  0  THEN  CALL  DISPLAY! 'ND  LITERALS  DECLARED'); 

ELSE 

DO; 

CALL  DISPLAY! ' ENTRY  TYPF  LENGTH  OFFSET  LITERAL'); 

CALL  DISPLAY ' •  ' ) ; 

DO  I  =  0  TO  NMIDS; 

IF  IDTYPE!  I  )  0  THEN 

DD; 

VALU  =  'O'B; 

VAL  =  SUBSTR(LTRLStIDOEST(I )+l,IDLNG( I)/8); 

IE  IDLNG(I)  >  48  THEN  LN  =  48;  FLSE  LN  =  IDLNG(I); 

VALU  =  DNSPEC! VAL ) ; 

PUT  STRINGiTEXT)  EDIT  ( I ♦ TPNAME ! IDTYPE! I ) ) « I DLNG ( I ) tlDDEST! 
) 

(E(S)tX(l)tA(2)»X(l)»E^6)*X(l)tF(6)»X(2)fB(LN)); 

CALL  DISPLAY! TEXT) : 

END; 

END; 

END; 

END  TABLES; 

END  SMNTC; 


00010840 
00010850 
00010840 
00010870 
00010880 
00010800 
00010900 
00010910 
00010920 
00010930 
00010940 
00010950 
00010940 
00010970 
00010980 
00010990 
00011000 
00011010 
00011020 
00011030 
I  )  ,  VAUJ0001  1040 
00011050 
00011040 
00011070 
00011080 
00011090 
00011100 
00011110 
00011120 
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SMFSin:  PROCEDURE (DS,  STRUCT  )  : 


/*  SHARE D  VARIABLES  */ 

DCL  TRACF  BIN  FIXED  (31)  STATIC  EXT: 

DCl  LINFS7  BIN  EIXED  (15)  STATIC  EXT  INITIAL  (7?): 

DCL  LINF  CHAR  (332)  VAR  ALIGNFD  STATIC  EXT  INITIAL  (•'); 
DCL  INPUT  CHAR  (84)  VAR  ALIGNED  STATIC  EXT  INITIAL  ("): 


/*  ROllTINFS  INVOKED  RY  SMFSIO  AND  FNTRY  POINTS  */ 

DCL  DSPLAY  ENTRY  (CHAR  (7?)  VAR): 

DCL  awRITE  ENTRY  (BIN  FIXED  (31),  (0:1)  BIN  FIXED  (31), 

BIN  FIXED  (31),  BIN  FIXED  (31)): 

DCL  SIRFAD  FNTRY  (BIN  FIXED  (31),  (0:1)  BIN  FIXFD  (31), 

BIN  FIXFD  (31),  BIN  FIXED  (31)): 

DCL  J30PFN  ENTRY  (BIN  FIXFD  (31),  BIN  FIXED  (31), 

(?)  BIN  FIXED  (31),  (?)  BIN  FIXFD  (31),  (?)  BIN  FIXFD  (31)): 
OCL  3CL0SE  FNTRY  (BIN  FIXFD  (31),  BIN  FIXFD  (31)): 

DCL  POINT  ENTRY: 


/*  variables  for  SMFS  */ 

DC*.  1  WR  T  OB  JT  STATIC  FXT, 

2  OPCD  BIT  (8)  UNALIGNFD  INITIAL  (• 0000001 1 ' B ) , 

2  FLGS  BIT  116)  UNALIGNED  INITIAL  (• 0010000000000000 ' B ) , 
2  DLNG  HIT  (32)  UNALIGNFD  INITIAL  (0): 

DCL  1  STRUCT  ALIGNED, 

?  DUMMY  BIT  (8)  ALIGNED, 

2  OPCD  B I T ( 8 )  UNALIGNFD, 

2  FLGS  B I T ( 1 6 )  UNALIGNFD, 

2  DLNG  BIT (3?)  UNALIGNFD, 

2  DATA  BIN  FIXFD  (15)  ALIGNED: 

DCL  1  STRCT  UNALIGNFD, 


00000010 
00000020 
00000030 
0000004  ' 
00000050 
00000060 
00000070 
00000080 
00000090 
00000100 
000001 10 
00000120 
00000130 
00000140 
00000150 
00000160 
000001 70 
00000180 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 


2  DPCD  RIT(R)  UNALIGNED, 

2  FLGS  B I T ( 16)  UNALIGNED, 

2  NLNG  B I T ( 8 )  UNALIGNFD, 

2  ENAM  CHAR  (36)  UNALIGNFD, 

2  FLNG  BIN  FIXFD  (31)  ALIGNED: 

DCL  1  WRTDIAG  STATIC  UNALIGNFD  FXT, 

2  DPCD  BIT  (8)  INITIAL  (» 000000 1 1 • B ) , 

2  FLGS  BIT  (16)  INITIAL  (» 0010000001 OOOGOO • B ) , 

2  DLNG  BIT  (3?)  INITIAL  ('00000000000000000000001001000000*9), 
2  DATA  CHAR  (72)  INITIAL  (  *  •  )  ; 

DCL  1  GTSRCE  STATIC  FXT, 

2  DPCD  PIT(R)  UNALIGNFD  INITIAL  (' 00000 ) 0 1 • R ) , 

2  FLGS  B ! T ( 16)  UNALIGNFD  INITIAL  (' 0010000000000000' B ) , 

2  DLNG  R I T ( 3  2  »  UNALIGNFD  I  NIT 
(  »000000000000000.)0000001010000000»B)  ; 


00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

00000480 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 

00000560 

00000570 
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OCL 

WRKSPSl ( 

2 

)  BIN 

FIX 

F 

dcl 

CMPLT1 (2 

) 

BIN  c 

I  X  F 

0 

OCL 

CMPLT2 ( 2 

! ) 

RIN  F 

I  XFO 

OCL 

SOKT  RIN 

FIXED 

(31 

) 

OCL 

SSKT ( 2 ) 

B 

IN  FIXED 

( 

OCL 

R  SKT ( 2 ) 

R 

IN  FIX 

EO 

( 

OCL 

LTIMF2R 

R 

IN  FIXED 

( 

OCL 

STIMF28 

B 

IN  FIX 

FO 

( 

(3)  )  ALIGNED  STATIC  FXT: 


(31 

)  AL 

IGNFD 

STAT 

IC  FXT: 

(31 

)  AL 

1GNF0 

STAT 

IC  FXT: 

1) 

STAT 

IC 

INI 

T 

(  3 

,0) : 

1) 

stat 

IC 

INI 

T 

(3 

tO)  5 

l  ) 

STAT 

IC 

INI 

T  I 

AL 

(  10000) 

1  ) 

STAT 

IC 

INI 

T  I 

AL 

( 300) : 

/*  l 

_OCAL  VAR  I 

ABLE  S 

*/ 

OCL 

WS(2)  BIN 

FIXED 

(31 

)  : 

OCL 

OS ( 2  )  RIN 

FIXFO 

(31 

) : 

OCL 

LEN  RIN  F 

I  XFO  ( 

31  ) 

STATI 

r  I  N 

I  T 

(0)  : 

OCL 

OPCODE  R I 

N  FIXE 

0  (1 

3)  STATIC 

INITIAL  (0): 

OCL 

NOOI AGFL 

BIN  FI 

XFO 

(  13) 

STAT 

IC 

INITIAL  (0): 

OCL 

TEXT  CHAR 

(72) 

VAR  : 

OCL 

AFR (0: l ) 

RIN  FI 

XFO 

(  31  ) 

STAT 

IC 

FXT  INI T  ((2)0 

OCL 

RFR (0: 1 ) 

RIN  FI 

XFO 

(31  ) 

STAT 

IC 

FXT: 

OPCHOF  =  WRTORJT.OPCO; 

WRTOBJT.OLNG  =  STRUCT. OLNG: 

LFN  =  WRTOBJT.OLNG: 

IF  TRACF  =  1  THEN  CALL  OSPLAY( 

•SMFS  OPCODE: •  I lOPCODFI I •  LENGTH  OF  DATA:*  |  I  L EN ) ; 

call  poi nt ( rfr ♦ ador ( wr tor j t . open ) ) ; 

CALL  SWRITF(OS( 1) .RFR ,33,LTIMF2ft  )  : 

IF  ns  (  1  )  >  0  THFN  GO  Til  rfport: 
call  pointibfr ,AOOR( struct. OAT A )  )  : 

CALL  3WRI TF( OS( 1 ) ♦ RFR ♦ LFN, LTI MF2ft  )  : 

COMMON: 

IF  ns ( 1 )  >  0  THEN  GO  TO  REPORT: 
u ALL  S)RFA0(0S(?),AFR,R,LTIMF?R): 

IF  OS(2)  >  0  THFN  GO  TO  RFPORT: 

AFR(l)  =  AFR (0)/( 253**3)  : 

IF  AFR ( I  )  <  2  I  AFR (  I)  >  ft  THFN 

no: 

call  nSPLAYI 

•no  I/O:  SMFS  REPORTS  COMPLETION  CORF  *  I  I  AFR (  1  )  )  : 
END: 

RFTURN: 


SMFLIO:  FNTRYinStSTRCT) : 

OPCODF  =  STRCT.npen: 
lfn  =  n: 

IF  OPCOOF  =  3  THFN 
LFN  =  STRCT.FLNG: 

LFN  =  LFN+352: 

CALL  POINT!  RFR  .AflORISTRCT.OPCn)  ): 
CALL  awR I TE( OS! 1 ) *RFR ,LFN,LT I MF?R  )  ; 


00000580 
00000390 
00000300 
00000310 
00000320 
00000330 
00000340 
00000330 
00000330 
00000370 
000003ft!) 
00000390 
00000700 
00000710 
00000720 
00000730 
00000740 
00000730 
00000730 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
00000840 
00000ft  30 
00000«30 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000930 
00000930 
0000,09  7!) 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001030 
00001030 
00001070 
00001080 
00001090 
ooooi ion 
000011 10 
ooooi 1 20 

00001 1 30 
000011 40 
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LFN  =  LEN-352: 

00001150 

GD  TO  COMMON; 

00001160 
00001170 
00001 1R0 
00001190 

SMFOJO:  ENTRY(OS»  SOKT  » WS ) ; 

00001200 

SSKT ( 2 )  =  SOKT: 

00001210 

RSKT  (  2  )  =  102*) ; 

00001220 

CALL  30PEN ( OS ( 1 ) *  ST  I ME2R , SSK T ,R SKT , WS ) ; 

00001230 

IF  OS ( 1 )  =  0  THFN 

00001240 

DO; 

00001250 

CALL  dRFADIDSI 1 ) , AFR , 32 , LT I ME28 ) : 

00001260 

IF  nSIl)  =  0  THFN 

00001270 

on; 

000012R0 

CALL  dCLOSEIDSI  1  HSTIMF28  )  ; 

00001290 

SSKTI2)  =  SOKT+2 : 

00001300 

RSKTI2)  =  AFR (  1)  +  1; 

00001310 

CALL  S)0PFN(DS(2),STIMF2R,SSKT,RSKT,WS)  ; 

00001320 

IF  OS ( 2  )  =  0  THFN 

00001330 

on; 

00001340 

SSKTI2)  =  SOKT  +  3 : 

00001350 

RSKTI2)  =  AFR ( 0 ) : 

00001360 

CALL  SOPEN ( OS ( 1) *STIMF2RfSSKT,RSKT,WS) : 

00001370 

IF  OS(l)  =  0  THEN  RETURN: 

000013R0 

ENO: 

00001390 

ENO: 

00001400 

ENO: 

00001410 

CALL  OSPLAYI 

00001420 

'SEND  SOCKET: '  |  ISOKT  +  3)  : 

00001430 

CALL  OSPLAYI 

00001440 

'RECEIVE  SOCKET:  '  1  ISOKT+2)  ; 

00001450 

CALL  OSPLAYI 

00001460 

'NO  OPEN'  )  : 

00001470 

GO  TO  REPRT ; 

000014R0 

REPORT : 

00001490 

CALL  OSPLAYI 

00001500 

'NO  INPUT/OUTPUT ' ) : 

00001510 

REPRT  : 

00001520 

CALL  OSPLAYI 

00001530 

'NCP  REPORTS  COMPLETION  COOF  '  1 1  OS  I  1  )  1 1 ' 

ON 

SFNO  SOCKET'); 

00001540 

CALL  OSPLAYI 

00001550 

'NCP  REPORTS  COMPLETION  COOE  ' 1 1  OS  I  2  HI ' 

ON 

RFCFI VF  SOCKET' ) : 

00001560 

return: 

00001570 

000015RO 

00001590 

00001600 

SMFCIO:  ENTRY  I  OS ) : 

00001610 

CALL  5'CLOSEIOSI  1  )  »STIME2R)  * 

00001620 

CALL  aCLOSEIOSm  cSTIME2R)  : 

00001630 

RFTURN; 

00001640 

00001650 

00001660 

00001670 

OISPLAY:  FNTRYITEXT): 

000016R0 

call  OSPLAY(TEXT) ; 

00001690 

RFTURN: 

00001700 

00001710 
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RFAD:  ENTR /  RETURNS (BIN  FIXED  (15)); 

IF  CMPLTK?)  =  20  THFN  RETURN  ( 0 )  : 

CALL  POINT(BER,AODR(GTSRCF.nPCn) ) : 

LFN  =  56+GTSRCE.DLNG; 

CALL  S)WR  I  TE(  CMPLTK  1)*RFR,LEN,LTIMF28)  ; 

IE  CMPLTl(l)  >  0  THEN  GO  TO  NOINPT; 

CALL  ii)READ(  CMPLT  1(2)  .  AER  ♦  8  f  LT  I  ME 28  )  ; 

IF  CMPLTK2)  >  0  THFN  GO  TO  NOINPT.' 

AFR(l)  =  AER (01/(256**3); 

IE  AER  (  1  )  5  THEN 

DO; 

CALL  DS°L AY ( 

•NO  INPUT.  SHF  S  REPORTS  COMPLETION  CODE : ' I  I AER  (  1 ) ) S 
IE  AER ( 1  )  =  42  I  AER (  1  )  =  22  I  AFR(i)  =  23  I  AFR(l)  =  3?  I 
AER ( 1  )  =  33  I  AER (  1  )  =  34  |  AFR (  1  )  =  39  THEN 
RETURN ( 0  )  ; 

ENO; 

CALL  o)RF  AD  ( CMP L T  1  (  2  )  « AFR  ,3?  dT  IMF  ?R  )  ; 

IF  CMPLTK2)  >  0  THEN  GO  TO  NOINPT; 

LEN  *  AFR ( 0 ) ; 

IE  LEN  >  0  THEN 
DO; 

CALL  POINT(BFR,ADDR( INPUT)  )  ; 

CALL  J?RFAD(CMPLTl  (2)  fRFR*LENdTIMF28)  ; 

IE  CMPLTK2)  >  0  THFN  GO  TO  NOINPT; 

END; 

ELSE 

DO; 

IE  LEN  =  0  THFN  RETURNS)  ; 

NOINPT ; 

IF  TRACE  =  1  THEN 
DO; 

CALL  DSPL AY ( 

•MO  INPUT  •  )  ; 

CALL  DSPLAY< 

•NCP  REPORTS  COMPLETION  CODE  •  I  I CMPLT 1(1)11*  ON  SEND  SOCKET*); 
CALL  DSPL AY ( 

•NCP  REPORTS  COMPLETION  CODE  • I  I CMPLT 1(2)11*  ON  RECEIVE  SOCKET*); 
END; 

RETURN(O) ; 

ENO; 

RETURN ( LEN/ft  )  ; 


POINT;  PROCEDURE (  I » J  )  ; 

OCL  (I,J)  POINTER; 
I  *  J ; 

END  POINT; 


OSPLAY;  PROCEDURE(TXT)  ; 

OCL  TXT  CHAR  (72)  VAR; 
WRTOIAG.DATA  *  TXT; 


00001720 
00001730 
00001740 
00001750 
00001760 
00001770 
00001780 
00001790 
00001800 
00001810 
00001820 
00001830 
00001840 
00001850 
00001860 
00001870 
00001880 
00001890 
00001900 
00001910 
00001920 
00001930 
00001940 
00001950 
00001960 
00001970 
00001980 
00001990 
00002000 
00002010 
00002020 
00002030 
00002040 
00002050 
00002060 
00002070 
00002080 
01. 002090 
00002100 
00002110 
00002120 
00002130 
00002140 
00002150 
00002160 
00002170 
00002180 
00002190 
00002200 
00002210 
00002220 
00002230 
00002240 
00002250 
00002260 
00002270 
00002280 


-92- 


CALL  PO!NT(HFR,Af)nR(WRTniAG.nPCO)  )  : 

IF  NODI AGFL  =  0  THHN 
on: 

LFN  =  56+WRTDI AG.  DLNG: 

CALL  n)WR  ITF  (CMPLT2  (  1  )  ,  RFR  ,  LFN f  L T  I  MF?R  )  : 

IF  CMPLT2I  1 )  =  0  THFN 

nn: 

CALL  <*RFAD(CMPLT2(2  ) , AFR , 8 , LT I ME2R  )  : 

IF  CMPLT2 ( 2 )  =  0  THFN 

nn: 

AFR ( 1  )  =  AFR(0)/(256**3)  : 

IF  AFR (  I )  =  3  THFN  RFTURN: 

FNn : 

END: 

IF  NODI AGFL  =  0  THFN 

nn : 

PUT  SKIP  LIST  ( 

'HNABLF  TO  USF  DIAGNOSTIC  FRF.  OUTPUT  DIVERTED  TO  SYSPRINT'); 
PUT  SKIP  LIST! 

•SMFS  REPORTS  COMPLETION  CODE AFR ( 1 ))  : 

PUT  SKIP  LIST! 

' NCP  REPORTS  COMPLETION  CODE : ' , CMPLT2 ( 1 ) , '  ON  SEND  SOCKFT'); 

PUT  SKIP  LIST( 

•NCP  REPORTS  COMPLETION  COOF : • , CMPLT? (?) »  '  ON  RECEIVE  SOCKFT*); 
NOD I AGFL  =  1; 

END: 

END : 

PUT  SKIP  LIST(WRTDIAG.DATA) : 

RFTURN: 

END  OS PL AY: 

END  SMFS 10 : 


00002290 

00002300 

00002310 

00002320 

00002330 

00002340 

00002350 

00002360 

00002370 

000023B0 

00002390 

00002400 

00002410 

00002*70 

00002430 

00002440 

00002460 

00002460 

00002470 

00002480 

00002490 

00002500 

00002510 

00002520 

00002530 

00002540 

00002550 

00002560 

00002570 

00002580 

00002590 
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S)OPFN:  PROCEDURE  ( CMPCD, T  !  MF  ,  LCl. SCK  ,  FGMSCK  ,  WS  )  : 


/*  SHARED  VARIABLFS  */ 

DCL  TRACE  BIN  FIXFD  (31)  STATIC  FXT : 

DCL  WRKSPS 1  ( 2 )  BIN  FIXFO  (31)  AUGNFD  STATIC  EXT: 

OCL  WRKSPS2  ( 2 )  BIN  FIXFD  (31)  AUGNFD  STATIC  FXT: 

DCL  WRKSPS3 ( 2 )  BIN  FIXFD  (31)  ALIGNED  STATIC  FXT: 

OCL  WRKSPSM2)  BIN  FIXFD  (31)  ALIGNFO  STATIC  FXT: 


/*  LOCAL  VARIABLFS  */ 

DCL  EOF  RIN  FIXFD  (31)  STATIC  FXT  INIT  ( 0 ) ; 
DCL  TB  BIN  FIXFD  (31)  STATIC  INITIAL  (0): 
DCL  TC  BIN  FIXFD  (31)  STATIC: 

DCL  TD  BIN  FIXED  (IS)  STATIC  INITIAL  (D): 
DCL  TEMP  BIN  FIXFD  (31)  STATIC  INITIAL  (0): 
DCL  I  BIN  FIXFD  STATIC: 

DCL  J  BIN  FIXFD  STATIC  INITIAL  (1): 

DCL  K  BIN  FIXFD  STATIC: 

DCL  TEXT  CHAR  ( BO )  STATIC  INITIAL  CM; 
DFCLARF  CMPCD  BIN  FIXFO  (31): 

DECLARF  TIME  BIN  FIXED  (31): 

DECLARE  LCl SCK ( 2  )  BIN  FIXED  (31): 

DFCLARF  FGNSCK ( 2 )  RIN  FIXFO  (31): 

DFCLARF  WS(2)  BIN  FIXED  (31): 

DCL  BFR (0:50)  RIN  FIXFD  (31): 

DCL  RSPONSF ( 0 : SO )  BIN  FIXFD  (31); 

DFCLARF  LEN  BIN  FIXFD  (31): 

DCL  STRCT  CHAR  (7S)  STATIC  FXT: 


IF  TRACE  =  l  THEN 

PUT  SKIP  L I  ST (  »@OPFN: • , CMPCD , T I MF , LCL SCK , FGNSCK , WS ) : 
CMPCD  =  0; 

rfturn: 


aCLDSE:  ENTRY (CMPCD, T I MF ) : 

IF  TRACF  a  l  THEN 

PUT  SKIP  LISTCaCLOSF:  •  tCMPCD,  TIME) : 
CMPCD  =  0: 

rfturn: 


SIR  FAD:  ENTRY  (CMPCD,  RSPONSF  ,  LEN,  T  IMF  )  : 
RSPONSF ( 0 )  =  Tfi*(256**3): 

IF  LEN  =  R  THEN  RETURN; 

RSPDNSE (0 )  =  TEMP: 

IF  LEN  =  32  THEN  RFTURN: 
RSPDNSF(O)  =  0: 

IF  LFN  -=0  £  TR  =  S  THEN 
DO; 

IF  EOF  r  l  THEN  GO  TO  SIGNAL: 

ON  FNOFILF  (SYSIN)  FOE  =  l: 


000000 l 0 
00000020 
00000030 
00000040 

ooooooso 
00000060 
00000070 
OOOOOORO 
00000090 
00000100 
000001 10 
00000120 
00000130 
00000140 

oooooiso 
00000160 
00000170 
00000 l RO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
000002  SO 
00000260 
00000270 
0000 2 RO 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
000003SO 
00000360 
00000370 
000003RO 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
000004SO 
00000460 
00000470 
000004R0 
00000490 
OOOOOSOO 

ooooosio 

00000S20 

O0000S30 

00000640 

oooocsso 

00000S60 

00000S70 
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GFT  EDM  ( TFXT )  (A(RO)): 

IF  FOF  =  1  THFN  GO  TO  SIGNAL: 

K  =  (LFN/32)  : 

00  I  =  0  TO  K-l: 

RSPONSE  (  I  )  =  UNSPFC(SURSTR(TFXT,(4*1)+1,4)); 

END: 

END: 

IF  TRACF  =  1  THFN 

PUT  SKIP  EDIT! »SREAO: • ,CMPCO ,R SPONSF , LEN , T I MF  ) 
(A,X(1),F(2),51(X(1),R(32))*X(1),F(5),X(1),F(5)1: 
CMPCO  -  o: 
return: 
signal : 

CMPCO  =  20: 

WRKSPS1 ( 2 )  =  80; 
return: 


aWRITF:  ENTRY (CMPCO, BFR,LEN,TItfF)  : 

TR  =  BFR(0)/(256**3)  : 

TC  =  (BFk(0)-TB*(256**3) ) /2S^ : 

TEMP  =  0: 

IF  TB  >=  2  £  TB  <=  6  THCN 
DO: 

IP  TC  =  8256  I  TC  =  8192  THFN  TFMP  =  BFR(l)/256: 

ELSE  TEMP  =  BFR(10»: 

IF  TC  =  8256  THEN 
00: 

CALL  POINT(STRCT,AOOR(BFR(1)  )  ): 

PUT  SKIP  LIST(STRCT): 

CMPCO  =  o: 

RFTURN; 

END: 

ENO: 

IF  TO  -i=  3  THFN  TO  =  TB: 

FLSP 

00' 

TB  =  TO: 

to  =  o: 

ENO, 

IF  TRACE  «=  1  THEN 

PUT  SKIP  FOIT( '^WRITF: «, CMPCO, BFR,LFN, TIME, TR,TC, TEMP  ) 
<A,X(l),F(2),5imi),B(3?)),5(X(l),F(5))): 

CMPCO  =  0: 

RETURN: 


POINT:  PROCEDURE! I, J): 

OCL  (1,J)  POINTFR: 
I  =  J: 

ENO  POINT: 

ENO  JDOPEN: 


00000580 

00000590 

00000600 

0000061G 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800 

00000810 

OOOOOR^O 

00000830 

00000840 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

00001080 

00001090 
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Appendix  D 

EXAMPLE  COMPILATION 
(Diagnostic  File) 
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0K(,B,,2):(K  .EQ.  2  :  F  (  4  )  )  ; 


ISN 

INSTRCT 

OPCD 

OPRND  SYMBOL 

0 

2 

2 

4 

1 

SICP 

1 

5 

0 

0 

0 

NULL 

2 

1 

1 

1C 

1 

3 

5 

0 

0 

0 

NULL 

4 

1 

2 

1C 

2 

5 

2 

2 

5 

0 

INS 

6 

3 

10 

AD 

10 

7 

2 

2 

2 

1 

BF 

8 

0 

0 

LD 

0  K 

9 

2 

2 

0 

0 

STO 

10 

3 

24 

AD 

24 

11 

2 

2 

2 

1 

BF 

12 

6 

0 

EOT 

0 

13 

2 

2 

4 

0 

SCI  P 

14 

0 

0 

Ll) 

0  K 

15 

1 

2 

fC 

2 

16 

2 

2 

3 

0 

CEQ 

17 

3 

22 

AD 

22 

18 

2 

2 

2 

0 

BT 

19 

1 

4 

1C 

4 

20 

2 

1 

2 

0 

LUL 

21 

2 

2 

2 

2 

BU 

22 

6 

1 

EOT 

1 

23 

7 

0 

EOR 

0 

lL('B'»1)/J(/B,/5):(L.EQ.  0:F(3)); 

ISN  INSTRCT  CPCD  TPRNP  SYMBOL 

24  2241  SICP 

25  5000  NULL 

26  1  1  |C  1 

27  5000  NULL 

28  1  1  |C  1 

29  2250  INS 

30  3  34  AO  34 

31  2221  BF 

32  0  1  LD  1  L 

33  2200  STO 

34  3  60  AD  60 

35  2  2  2  1  BF 

36  6  0  EOT  0 

37  5000  NULL 

38  1  1  |C  1 

39  5000  NULL 

40  1  5  1C 

41  2250  INS 


5 
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42 

3 

46 

AD 

43 

2 

2 

2 

1 

BF 

44 

0 

2 

LD 

45 

2 

2 

0 

0 

STO 

46 

3 

60 

AD 

47 

2 

2 

2 

1 

BF 

48 

6 

1 

EOT 

49 

2 

2 

4 

0 

SCI  P 

50 

0 

1 

LD 

51 

1 

0 

1C 

52 

2 

2 

3 

0 

CEQ 

53 

3 

58 

AD 

54 

2 

2 

2 

0 

BT 

55 

1 

3 

1C 

56 

2 

1 

2 

0 

LUL 

57 

2 

2 

2 

2 

BU 

58 

6 

2 

EOT 

59 

7 

1 

EOR 

:  (  J 

/ 

E 

/ 

E 

"  "  ,  1 

ISN 

INSTRCT 

OPCD 

60 

2 

2 

4 

1 

SICP 

61 

2 

2 

4 

0 

SCIP 

62 

0 

2 

LD 

63 

1 

4 

1C 

64 

0 

3 

LD 

65 

1 

1 

1C 

66 

2 

2 

6 

0 

OUT 

67 

1 

0 

1C 

68 

2 

1 

2 

0 

LUL 

69 

2 

2 

2 

2 

BU 

70 

3 

74 

AD 

71 

2 

2 

2 

1 

BF 

72 

6 

0 

EOT 

73 

7 

2 

EOR 

CHAR  i 

C  , 

1 

E 

/  / 

1  )  : 

ISN 

INSTRCT 

OPCD 

74 

2 

2 

4 

1 

SICP 

75 

5 

0 

0 

0 

NULL 

76 

1 

4 

1C 

77 

5 

0 

0 

0 

NULL 

78 

1 

1 

1C 

79 

2 

2 

5 

0 

INS 

80 

3 

84 

AD 

81 

2 

2 

2 

1 

BF 

82 

0 

4 

LD 

83 

2 

2 

0 

0 

STO 

2  J 


1  L 
9 


2  J 
4 


U  (  0  )  )  ; 


4  CHAR 
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84  3  100  AD  100 

85  2221  BF 

86  6  0  EOT  0 

87  2  2  4  0  SCIP 

88  0  2  LD  Z  J 

89  1  4  1C  4 

90  0  4  LD  4  CHAR 

91  1  1  1C  1 

92  2260  OUT 

93  1  0  1C  0 

94  2  1  2  0  LIJL 

95  2222  BU 

96  3  100  AD  100 

97  2  2  2  1  BF 

98  6  1  EOT  1 

99  7  3  EOR  3 

4  LJ  (  ,  B  ,  ,  6  )  ,  CHRS  (  LJ  ,  E  ,  ,  1  )  :  (  ,  E  ,  CHRS  ,  L  (  CHRS  ) 
U  (  0  )  )  ; 

ISN  INSTRCT  OPCD  OPRND  SYMBOL 

100  2241  SICP 

101  5000  NULL 

102  1  1  1C  1 

103  5000  NULL 

104  1  6  1C  6 

105  2250  INS 

106  3  110  AD  110 

'07  2221  BF 

108  0  5  LD  .  LJ 

109  2200  STO 

110  3  139  AD  139 

111  2  2  2  1  BF 

112  6  0  EOT  0 

113  0  5  LD  5  LJ 

114  1  4  1C  4 

115  5000  NULL 

116  1  1  1C  1 

117  2250  INS 

118  3  122  AD  122 

119  2  2  2  1  BF 

120  0  6  LD  6  CHRS 

121  2200  STO 

122  3  139  AD  139 

123  2221  BF 

124  6  1  EOT  1 

125  2  2  4  0  SCIP 

126  5000  NULL 

127  1  4  1C  4 

128  0  6  LD  6  CHRS 


t 

m 


129 

0 

6 

LD 

130 

131 

2 

2 

1 

2 

1  1 

6  0 

LIL 

OUT 

132 

1 

0 

1C 

133 

2 

1 

2  0 

LUL 

134 

2 

2 

2  2 

BU 

135 

3 

139 

AD 

136 

2 

2 

2  1 

BF 

137 

6 

2 

EOT 

138 

h 

7 

4 

EOR 

'*  END  OF  FORM  */ 


6  CHRS 


0 


139 

2 

4 


*****  LABEL  TABLE  ****** 
NTRY  LABEL  OFFSET 


*****  IDENTIMER  TABLE  ****** 


NTRY 

0 

1 

2 

4 

5 

6 

***** 


IDENTIFIER 

K 

L 

J 

CHAR 

LJ 

CHRS 


LITERAL  TABLE  ****** 
MTRY  TYPE  LENiiTI!  OFFSET  LITERAL 

iMPKATION  TERMINATED  01000000 


* 
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Appendix  E 

OBJECT  LANGUAGE  INSTRUCTION  FORMATS 


LD  -  0  literal  or  identifier  reference 

IC  -  1  1-L-bit  2' a  complement  integer  constant 

OP  -  2  operator 

AD  -  3  address  (12-bit  positive  integer) 

ARB  -  4  indefinite  replication  factor 
NULL  -  5  missing  attribute  of  term 

Basic  Instruction  Format 


4  A  e 


OP 

—  ■  -  ►  0  -  binary  operator 

1  ■  unary  operator 

2  -  special  operator 

Operator  Format 


A  A  A  A 


0  -  integer  + 

1  ■  integer  - 

2  ■  integer  x 

3  -  integer  t  (or  /) ,  no  remainder 
A  -  concatenate 


Binary  Operator  Encoding 
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1  -  load  identifier  0  ■  evaluated  contents 

(after  dec  *►  binary 
conversion) 


1  -  length  field 


2  ■  type  field 


2  -  Label  Table  Reference 


Unary  Operator  Encoding 


4  4  4  4 


3  *  compare  0  -  .EQ.  2  «  .LE.  4  *  .GE. 

1  -  .NE.  3  -  .LT.  5  -  .GT. 


0  -  store  current  into  initial 
1  -  store  initial  into  current 
0  -  no  store 
1  3  store 

6  **  output  call 


4  -  move  input  ptr 

5  -  input  call 


Special  Operators  Encoding 
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Main  routine: 

Enter  with  the  name  of 
the  input  file. 


Flag  error 
Scan  for 


Syntax  Analyzer 
PRSER 


Get  name  of 
input  file. 
Form  SMFS 
file  names 


/  InpUt  Ny 
file  available 


Delete  existing 
OBJECT/ 

DIAGNOSTIC  files. 
Create  new  ones. 


Initialize  start - 
state,  look  ahead 
flag,  state 
stock  pointer. 


/  Process  \ 

J  nnn  L 

Semantic^ 

prrrtr 

1  apply  J  9 

\  state  / 

error 

\  ^ 

^  Look  -  ^ 
ahead  state 
0 


/  Process  \ 
1  look- ahead \ 

V  state  ) 


s'  State 

'corresponding  toV, 
\  GLUMP  ^ 

X  ?  / 


Fig.  10--Syntax  Analysis  Routine:  Control  Loop 


Fig.  11— Syntax  Analysis  Routine:  Processing  the  Read  State 
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Fig. 


Apply  State  Process 


—Syntax  Analysis  Routine:  Processing  the  Apply  State 


Look  aheod  state 


Push  state 

T 

Stack  the 
current  state 


G«t  the  next 
state  —  a  functio'. 
of  current 
state  only 

i  r 


Fig.  13— Syntax  Analysis  Routine:  Processing  the  Look-Ahead  and  Push  States 
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Lexical  Analyzer 
LXANLZ 


Fig.  14— Lexical  Analysis  Routine 
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INDX 

enter  with  string 
to  find 


VRFY 

enter  with  string 
to  verify 


Fig.  15— Lexical  Analysis  Routine:  Verify  and  Index  Subroutines 


-111- 


Entry  SMFSIO 


Set  length  of 
output  in 

SMFS  I/O 
commond 


Input/ output  routine 
SMFSIO 


Enter  with  a  structure  containing  data 
to  be  written. 

Exit  with  completion  code  zero  for 
successful  write,  non -zero  for 
unsuccessful  write. 


Entry  SMFLIO 


Set  length  of 
1/  O  command 
ond  data 


Point  arroy 
dope  vector  ot 
the  I/O 
command 


Point  orroy 
dope  vector  to 
1/  O  command 
plus  data 


f  o  WRITE:  \ 
send  write 
request  to  SMFS, 
V  thru  NCP  / 


/^NCP\ 

transmit 

successful 


Enter  with  orray  of 
channel  numbers.  First 
orroy  element  fo<  send 
channel.  Second  orroy 
element  for  receive 
channel. 


Entry  SMFCIO 


a  CLOSE: 
close  send 
socket 


Point  orroy 
dope  vector  to 
doto  to  be 


'a  CLOSE: 
close  receive 
socket 


a  WRITE; 
send  data  to 
SMFS  thru 
NCP 


transmit 

successful 


Report  NCP 
error  code 


SMFS  \ 
write  successful 


Report  SMFS 
error  code 


Fig.  18- Input/Output  Routine:  Executing  SMFS  Channel  Commands 

and  Closing  SMFS  Files 


Entry  SMFOIO 


a  OPEN: 
Open  channel 
to  SMFS 


Co  READ: 
Get  oddress 
of  SMFS 
channel 


^  Read  ^ 
successful 
9 


a  CLOSE: 
Close  SMFS 
chonnel 


'o  OPEN: 
Open  send 
channel 
to  SMFS 


''Open  \ 
successful 


o  OPEN:  ' 
Open  receive 
channel 
to  SMFS  , 


^  Open  ^ 
successful 


Enter  with  array  of  channel 
numbers ,  workspace,  and 
completion  code. 

Exit  with  completion  code 
zero  for  success,  completion 
code  nor.-zero  for  failure. 


Report  NCP 
completion 
code 


Ertry  DISPLAY 


Place  output 
text  after 
SMFS  I/O 
command 


Print  orray  dope 
vector  to  I/O 
command 
plus  text 


Diagnostic  ^ 
file  available 


'  a  WRITE: 
issue  write  to 
SMFS  thru 
^  NCP 


/  NCP  \ 

report  write 
successful 


fc  READ: 
Read  SMFS 
echo 


/SMFS\ 
report  write 
.  succesiful  . 


Write  text 
on  SYS  OUT 


Enter  with  text  to  be 
displayed. 

Exit  with  completion 
code  zero  for  success 
non-zero  for  failure. 


Report  error 
on  diogonstic 
file 


Fig.  19— Input/Output  Routine:  Opening  and  Writing  an  SMFS  File 


■ 
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Entry  KEAD 


Fig.  20— Input/Output  Routine:  Reading  an  SMFS  File 


Preceding  page  blank 
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